A234901 Primes which remain prime when the digits are rotated once to the right.

2, 3, 5, 7, 11, 13, 17, 31, 37, 71, 73, 79, 97, 113, 131, 173, 197, 199, 271, 277, 311, 313, 337, 373, 379, 397, 419, 479, 491, 571, 577, 593, 617, 631, 673, 719, 733, 811, 839, 877, 911, 919, 971, 977, 991, 1031, 1039, 1091, 1093, 1097, 1171, 1193, 1213

Offset: 1

Author

Colin Barker, Jan 01 2014

Keywords

• nonn
• base

Examples

			The prime 1097 is in the list because 7109 is also prime.
		

Links

• Lars Blomberg, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A061461, A227916, A227919.

Programs

Magma

r:=func; [p: p in PrimesUpTo(1300) | IsPrime(r(p))]; // Bruno Berselli, Jul 04 2014

Mathematica

Select[Prime[Range[200]],PrimeQ[FromDigits[RotateRight[IntegerDigits[#]]]]&] (* Harvey P. Dale, May 05 2022 *)

PARI

rotr(a) = if(a<10, a, eval(Str(a%10, a\10)))
s=[]; forprime(n=2, 2000, if(isprime(rotr(n)), s=concat(s, n))); s