%I #15 Feb 22 2024 19:53:54
%S 37,137,337,937,1237,1637,2137,2237,2437,2837,3037,3137,3637,4337,
%T 4637,4937,5237,5437,5737,6037,6337,6637,6737,7237,7537,7937,8237,
%U 8537,8737,8837,9137,9337,9437,10037,10337,10837,10937,11437,12037,12437,12637,13037
%N Prime numbers ending in the prime number 37.
%C Also primes of the form 100*n+37. Subsequence of A141886, A141936.
%H Vincenzo Librandi, <a href="/A244768/b244768.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={3, 7} &]
%t Select[Prime[Range[2000]],Mod[#,100]==37&] (* _Harvey P. Dale_, Dec 25 2022 *)
%o (Magma) [n: n in PrimesUpTo(16000) | n mod 100 eq 37];
%o (PARI) select(x->(x % 100)==37, primes(2000)) \\ _Michel Marcus_, Jul 06 2014
%Y Cf. A141886, A141936.
%Y Cf. similar sequences listed in A244763.
%K nonn,base,easy
%O 1,1
%A _Vincenzo Librandi_, Jul 06 2014