|
%I #25 Nov 13 2023 10:02:09
%S 2,3,5,7,11,13,17,31,37,71,73,79,97,113,131,173,197,199,271,277,311,
%T 313,337,373,379,397,419,479,491,571,577,593,617,631,673,719,733,811,
%U 839,877,911,919,971,977,991,1031,1039,1091,1093,1097,1171,1193,1213
%N Primes which remain prime when the digits are rotated once to the right.
%H Lars Blomberg, <a href="/A234901/b234901.txt">Table of n, a(n) for n = 1..10000</a>
%e The prime 1097 is in the list because 7109 is also prime.
%t Select[Prime[Range[200]],PrimeQ[FromDigits[RotateRight[IntegerDigits[#]]]]&] (* _Harvey P. Dale_, May 05 2022 *)
%o (PARI) rotr(a) = if(a<10, a, eval(Str(a%10, a\10)))
%o s=[]; forprime(n=2, 2000, if(isprime(rotr(n)), s=concat(s, n))); s
%o (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
%Y Cf. A061461, A227916, A227919.
%K nonn,base
%O 1,1
%A _Colin Barker_, Jan 01 2014
|
