|
|
A059701
|
|
Primes p such that p^8 reversed is also prime.
|
|
1
|
|
|
23, 139, 239, 241, 409, 431, 577, 647, 761, 787, 1031, 1051, 1187, 1319, 1567, 1831, 1879, 2069, 2087, 2281, 2347, 2351, 2521, 3061, 3167, 3347, 3433, 4049, 4231, 4283, 4363, 4447, 4999, 5437, 5669, 5689, 5869, 7499, 7607, 7681, 7687, 7841, 7907, 8039
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[ Range[ 11000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^8 ] ] ] ] & ]
Select[Prime[Range[1100]], PrimeQ[IntegerReverse[#^8]]&] (* Requires Mathematica version 10 or higher *) (* Harvey P. Dale, May 22 2017 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(8100) | IsPrime(Seqint(Reverse(Intseq(p^8))))]; // Vincenzo Librandi, Apr 12 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|