cp's OEIS Frontend

A061461 Primes which produce primes when the leading digit is moved to the end.

%I A061461 #13 Nov 13 2023 10:01:55
%S A061461 2,3,5,7,11,13,17,31,37,71,73,79,97,101,103,107,113,127,131,149,157,
%T A061461 163,181,191,197,199,307,311,317,331,337,359,367,373,701,709,719,727,
%U A061461 733,739,757,761,787,797,907,919,937,941,947,971,983,991,1013,1019
%N A061461 Primes which produce primes when the leading digit is moved to the end.
%H A061461 Robert Israel, <a href="/A061461/b061461.txt">Table of n, a(n) for n = 1..10000</a>
%e A061461 127 becomes 271 which is also a prime.
%p A061461 R:= 2,3,5,7:
%p A061461 for d from 1 to 3 do
%p A061461   for i in [1,3,7,9] do
%p A061461     for x from 1 to 10^d-1 by 2 do
%p A061461       y:= i*10^d+x;
%p A061461       if isprime(y) and isprime(10*x+i) then R:= R, y fi
%p A061461 od od od:
%p A061461 R; # _Robert Israel_, Aug 05 2020
%t A061461 Select[Prime[Range[200]],PrimeQ[FromDigits[RotateLeft[IntegerDigits[#]]]]&] (* _Paolo Xausa_, Nov 13 2023 *)
%Y A061461 Cf. A234901.
%Y A061461 Cf. A061459, A061460 (squares and cubes instead of primes).
%K A061461 nonn,base,easy
%O A061461 1,1
%A A061461 _Amarnath Murthy_, May 04 2001
%E A061461 More terms from Larry Reeves (larryr(AT)acm.org), May 25 2001