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,1

Links

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

Example

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

Mathematica

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

Prog

(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
(Magma) r:=func<i | Seqint(Intseq(Floor(i/10)) cat Intseq(Intseq(i)[1]))>; [p: p in PrimesUpTo(1300) | IsPrime(r(p))]; // Bruno Berselli, Jul 04 2014

Crossrefs

Cf. A061461, A227916, A227919.

Sequence in context: A007500 A090933 A107845 * A090934 A068652 A003459

Adjacent sequences: A234898 A234899 A234900 * A234902 A234903 A234904

Keyword

nonn,base

Author

Colin Barker, Jan 01 2014

Status

approved