cp's OEIS Frontend

A246944 Prime numbers p with property that when the first digit is shifted to the last digit, we obtain a prime greater than p.

%I A246944 #21 Jun 06 2018 14:01:27
%S A246944 13,17,37,79,113,127,131,149,157,163,181,191,197,199,337,359,367,373,
%T A246944 787,797,1117,1123,1129,1151,1153,1181,1187,1193,1201,1213,1231,1237,
%U A246944 1259,1279,1297,1301,1319,1327,1367,1409,1423,1427,1439,1459,1483,1487,1493
%N A246944 Prime numbers p with property that when the first digit is shifted to the last digit, we obtain a prime greater than p.
%H A246944 Jens Kruse Andersen, <a href="/A246944/b246944.txt">Table of n, a(n) for n = 1..10000</a>
%e A246944 13: when 1 is shifted to last it becomes 31.
%t A246944 fdlQ[n_]:=Module[{c=FromDigits[RotateLeft[IntegerDigits[n]]]},PrimeQ[c] && c>n]; Select[Prime[Range[300]],fdlQ] (* _Harvey P. Dale_, Jun 06 2018 *)
%o A246944 (PHP)
%o A246944 function number_firsttolast($a)
%o A246944 {
%o A246944 $b=str_split($a);
%o A246944 $c=count($b);
%o A246944 for($i=1;$i<$c;$i++)
%o A246944 {
%o A246944   $d=$d.$b[$i];
%o A246944 }
%o A246944 $e=$d.$b[0];
%o A246944 return ($e);
%o A246944 }
%o A246944 (PARI)
%o A246944 move(n)=n=Vec(Str(n));N=List();for(i=2,#n,listput(N,n[i]));listput(N,n[1]);return(eval(concat(N)));
%o A246944 forprime(p=2,1000,if(isprime(move(p))&&move(p)>p,print1(p,","))) \\ _Edward Jiang_, Sep 08 2014
%Y A246944 Cf. A109308.
%K A246944 nonn,base
%O A246944 1,1
%A A246944 _Shanmuga Subramanian_, Sep 08 2014