OFFSET
1,1
COMMENTS
A number is in this sequence if it is prime, and can be expressed as p1^3 + p2^3 - 1, where p1 and p2 are also prime.
There are 175 numbers in the sequence < 10^7: a(175) = 83^3 + 211^3 - 1 = 9965717.
LINKS
Christian N. K. Anderson, Table of n, a(n) for n = 1..1890
EXAMPLE
3527 is in the sequence, because 11^3 + 13^3 - 1 = 3527, and 11, 13, and 3527 are all prime.
MATHEMATICA
mx = 25; Union[Select[Flatten[Table[Prime[a]^3 + Prime[b]^3 - 1, {a, mx}, {b, a, mx}]], # < Prime[mx]^3 && PrimeQ[#] &]] (* T. D. Noe, Mar 29 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Kevin L. Schwartz and Christian N. K. Anderson, Mar 21 2013
STATUS
approved