|
|
A059704
|
|
Primes p such that p^11 reversed is also prime.
|
|
1
|
|
|
17, 73, 83, 157, 277, 293, 359, 661, 739, 863, 1489, 1601, 2311, 2851, 2939, 3499, 3733, 3739, 4423, 4447, 4567, 4793, 5297, 5501, 5519, 5521, 5573, 6379, 6791, 6899, 6983, 7333, 7351, 7411, 7853, 8179, 9001, 9013, 9743, 9787, 10159, 10627, 11119
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[ Range[ 16000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^11 ] ] ] ] & ]
Select[Prime[Range[1500]], PrimeQ[IntegerReverse[#^11]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 24 2020 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(15000)|IsPrime(Seqint(Reverse(Intseq(p^11))))]; // Vincenzo Librandi, Apr 12 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|