A244765 Prime numbers ending in the prime number 19.
19, 419, 619, 719, 919, 1019, 1319, 1619, 2719, 2819, 3019, 3119, 3319, 3719, 3919, 4019, 4219, 4519, 4919, 5119, 5419, 5519, 6619, 6719, 7019, 7219, 7919, 8219, 8419, 8719, 8819, 9319, 9419, 9619, 9719, 11119, 11519, 11719, 12119, 12619, 12919, 13219
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in PrimesUpTo(16000) | n mod 100 eq 19];
-
Mathematica
Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={1, 9} &] Select[Prime[Range[1600]],Mod[#,100]==19&] (* Harvey P. Dale, Jul 29 2018 *)
-
PARI
select(x->(x % 100)==19, primes(2000)) \\ Michel Marcus, Jul 06 2014
Comments