|
%I #12 Jun 13 2013 18:32:50
%S 16,35,54,133,152,250,351,370,468,686,1339,1358,1456,1674,2205,2224,
%T 2322,2540,2662,3528,4394,4921,4940,5038,5256,6244,6867,6886,6984,
%U 7110,7202,8190,9056,9826,11772,12175,12194,12292,12510,13498,13718,14364
%N Numbers of the form p^3 + q^3, p, q primes.
%H T. D. Noe, <a href="/A086119/b086119.txt">Table of n, a(n) for n=1..10000</a>
%e 133 belongs to the sequence because it can be written as 2^3 + 5^3.
%t sumList[x_List, y_List] := Module[{t = {}}, Do[t = Union[t, x[[i]] + y], {i, Length[x]}]; t]; nn = 10; Select[sumList[Prime[Range[nn]]^3, Prime[Range[nn]]^3], # < Prime[nn]^3 &]
%Y Cf. A001235, A003325, A045636, A045699, A086120, A086121.
%K nonn
%O 1,1
%A _Hollie L. Buchanan II_, Jul 11 2003
%E More terms from _Alexander Adamchuk_, Nov 10 2006
|
