A167388 - OEIS

%I #25 Sep 15 2024 01:49:21

%S 31,131,331,431,631,1031,1231,1531,1831,1931,2131,2531,2731,3331,3631,

%T 3931,4231,4831,4931,5231,5431,5531,6131,7331,8231,8431,8731,8831,

%U 9431,9631,9931,10331,10531,10631,10831,11131,11731,11831,13331,13831,13931

%N Prime numbers ending in the prime number 31.

%H Vincenzo Librandi, <a href="/A167388/b167388.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Prime[Range[6,1700]],Take[IntegerDigits[#],-2] =={3,1}&]  (* _Harvey P. Dale_, Mar 31 2011 *)

%o (PARI) forprime(p=2,10^5,if(p%100==31,print1(p,", "))); /* _Joerg Arndt_, Apr 01 2011 */

%o (Magma) [n: n in PrimesUpTo(14000) | n mod 100 eq 31]; // _Vincenzo Librandi_ and _Bruno Berselli_, Apr 02 2011

%K nonn,base

%O 1,1

%A _Mark A. Thomas_, Nov 02 2009