OFFSET
1,1
COMMENTS
The differences are multiples of 1728.
LINKS
Antonio Roldán, Table of n, a(n) for n = 1 to 40
EXAMPLE
905213 is prime, 312509 is prime. 905213 - 312509 = 592704 = 84^3.
MATHEMATICA
Select[Prime[Range[100000]], !PalindromeQ[#]&&PrimeQ[IntegerReverse[#]] && IntegerQ[ CubeRoot[ Abs[#-IntegerReverse[#]]]]&] (* Harvey P. Dale, Jan 27 2023 *)
PROG
(PARI) isinteger(n)=(n==truncate(n))
reverse(n)=eval(concat(Vecrev(Str(n))))
iscube(n)= { local(f, m, p=0); if(n==1, p=1, f=factor(n); m=gcd(f[, 2]); if(isinteger(m/3), p=1)); return(p) }
{for(i=2, 10^7, p=reverse(i); if(isprime(i)&&isprime(p)&&iscube(abs(i-p)), print1(i, " ")))} /* Antonio Roldán, Dec 19 2012 */
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antonio Roldán, Oct 02 2012
STATUS
approved