A059697 Primes p such that p^4 reversed is also prime.

2, 19, 31, 61, 79, 113, 359, 421, 439, 443, 569, 599, 643, 761, 773, 787, 919, 983, 1069, 1097, 1117, 1123, 1171, 1321, 1627, 1657, 1667, 1669, 1747, 1759, 1777, 1831, 1913, 2341, 2347, 2351, 2389, 2399, 2441, 2917, 2957, 3089, 3181, 3253, 3299, 3571

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Select[ Range[ 5000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^4 ] ] ] ] & ]
Select[Prime[Range[500]], PrimeQ[IntegerReverse[#^4]]&] (* Harvey P. Dale, May 08 2022 *)

Prog

(Magma) [p: p in PrimesUpTo(3600) | IsPrime(Seqint(Reverse(Intseq(p^4))))]; // Vincenzo Librandi, Apr 12 2013

Crossrefs

Cf. A059205.

Sequence in context: A261312 A090819 A254897 * A103058 A161442 A135834

Adjacent sequences: A059694 A059695 A059696 * A059698 A059699 A059700

Keyword

nonn,base

Author

Robert G. Wilson v, Feb 06 2001

Status

approved