%I #9 Sep 08 2022 08:45:48
%S 61,461,661,761,1061,1361,1861,2161,2861,3061,3361,3461,3761,4261,
%T 4561,4861,5261,5861,6361,6661,6761,6961,7561,8161,8461,8761,8861,
%U 9161,9461,9661,10061,10861,11161,11261,12161,14461,14561,15061,15161,15361,15461
%N Prime numbers ending in the prime number 61.
%H Vincenzo Librandi, <a href="/A167445/b167445.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={6, 1} &] (* _Vincenzo Librandi_, Jul 07 2014 *)
%o (Magma) [n: n in PrimesUpTo(16000) | n mod 100 eq 61]; // _Vincenzo Librandi_, Jul 07 2014
%o (PARI) select(x->(x % 100)==61, primes(2000)) \\ _Michel Marcus_, Jul 07 2014
%Y Cf. similar sequence listed in A244763.
%K base,nonn
%O 1,1
%A _Mark A. Thomas_, Nov 03 2009
|