OFFSET
1,1
LINKS
Hans Havermann and T. D. Noe, Table of n, a(n) for n = 1..20000.
EXAMPLE
117 and 133 each belong to the (set) sequence because can be written as 117 = 5^3 - 2^3 and 133 = 5^3 + 2^3.
MATHEMATICA
nn=10^6; td=Reap[Do[n=Prime[i]^3-Prime[j]^3; If[n<=nn, Sow[n]], {i, PrimePi[Sqrt[nn/6]]}, {j, i-1}]][[2, 1]]; ts=Reap[Do[n=Prime[i]^3+Prime[j]^3; If[n<=nn, Sow[n]], {i, PrimePi[nn^(1/3)]}, {j, i}]][[2, 1]]; Union[td, ts] (* T. D. Noe, Oct 04 2010 *)
n = 100; Select[Sort@Flatten@ Table[Prime[i]^3 + (-1)^k Prime[j]^3, {i, n}, {j, i}, {k, 2}], 0 < # < (Prime[n] + 2)^3 - Prime[n]^3 &] (* Ray Chandler, Oct 05 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hollie L. Buchanan II, Jul 11 2003
EXTENSIONS
Edited by N. J. A. Sloane, Oct 05 2010 to remove a discrepancy between the terms of the sequence and the b-file. The old Mma program and b-file were wrong.
STATUS
approved