A244764 Prime numbers ending in the prime number 17.
17, 317, 617, 1117, 1217, 2017, 2417, 2617, 2917, 3217, 3517, 3617, 3917, 4217, 4517, 4817, 5417, 5717, 6217, 6317, 6917, 7417, 7517, 7717, 7817, 8017, 8117, 8317, 9817, 11117, 11317, 11617, 11717, 12517, 12917, 13217, 13417, 14717, 15017, 15217, 15817
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. similar sequences listed in A244763.
Programs
-
Magma
[n: n in PrimesUpTo(16000) | n mod 100 eq 17];
-
Mathematica
Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={1, 7} &] Select[Prime[Range[2000]],Mod[#,100]==17&] (* Harvey P. Dale, Sep 20 2022 *)
-
PARI
select(x->(x % 100)==17, primes(2000)) \\ Michel Marcus, Jul 06 2014
Comments