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
KEYWORD
nonn,base
AUTHOR
Colin Barker, Jan 01 2014
STATUS
approved