|
%I #19 Sep 08 2022 08:45:48
%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
|
