|
%I #15 Sep 08 2022 08:46:08
%S 19,419,619,719,919,1019,1319,1619,2719,2819,3019,3119,3319,3719,3919,
%T 4019,4219,4519,4919,5119,5419,5519,6619,6719,7019,7219,7919,8219,
%U 8419,8719,8819,9319,9419,9619,9719,11119,11519,11719,12119,12619,12919,13219
%N Prime numbers ending in the prime number 19.
%C Also primes of the form 100*n+19. Subsequence of A141887, A141942.
%H Vincenzo Librandi, <a href="/A244765/b244765.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={1, 9} &]
%t Select[Prime[Range[1600]],Mod[#,100]==19&] (* _Harvey P. Dale_, Jul 29 2018 *)
%o (Magma) [n: n in PrimesUpTo(16000) | n mod 100 eq 19];
%o (PARI) select(x->(x % 100)==19, primes(2000)) \\ _Michel Marcus_, Jul 06 2014
%Y Cf. A141887, A141942.
%Y Cf. similar sequences listed in A244763.
%K nonn,base,easy
%O 1,1
%A _Vincenzo Librandi_, Jul 06 2014
|
