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