OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
1871 is a term because 1871 + 1873 = 10^3 + 14^3.
8819 is a term because 8819 + 8821 = 4^3 + 26^3.
74609 is a term because 74609 + 74611 = 7^3 + 53^3.
MATHEMATICA
Select[Select[Prime@ Range[10^5], PrimeQ[# + 2] &], Length[PowersRepresentations[2 # + 2, 2, 3] /. {0, _} -> Nothing] > 0 &] (* Michael De Vlieger, Mar 15 2016 *)
PROG
(PARI) isA003325(n) = for(k=1, sqrtnint(n\2, 3), ispower(n-k^3, 3) && return(1));
t(n, p=3) = {while( p+2 < (p=nextprime( p+1 )) || n-->0, ); p-2}
for(n=1, 1e4, if(isA003325(2*t(n)+2), print1(t(n), ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Mar 13 2016
STATUS
approved