A086119 Numbers of the form p^3 + q^3, p, q primes.

16, 35, 54, 133, 152, 250, 351, 370, 468, 686, 1339, 1358, 1456, 1674, 2205, 2224, 2322, 2540, 2662, 3528, 4394, 4921, 4940, 5038, 5256, 6244, 6867, 6886, 6984, 7110, 7202, 8190, 9056, 9826, 11772, 12175, 12194, 12292, 12510, 13498, 13718, 14364

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n=1..10000

Example

133 belongs to the sequence because it can be written as 2^3 + 5^3.

Mathematica

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 &]

Crossrefs

Cf. A001235, A003325, A045636, A045699, A086120, A086121.

Sequence in context: A161441 A190741 A294073 * A105509 A337024 A219316

Adjacent sequences: A086116 A086117 A086118 * A086120 A086121 A086122

Keyword

nonn

Author

Hollie L. Buchanan II, Jul 11 2003

Extensions

More terms from Alexander Adamchuk, Nov 10 2006

Status

approved