|
%I #14 Sep 20 2022 16:07:23
%S 17,317,617,1117,1217,2017,2417,2617,2917,3217,3517,3617,3917,4217,
%T 4517,4817,5417,5717,6217,6317,6917,7417,7517,7717,7817,8017,8117,
%U 8317,9817,11117,11317,11617,11717,12517,12917,13217,13417,14717,15017,15217,15817
%N Prime numbers ending in the prime number 17.
%C Also primes of the form 100*n+17. Subsequence of A166579.
%H Vincenzo Librandi, <a href="/A244764/b244764.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={1, 7} &]
%t Select[Prime[Range[2000]],Mod[#,100]==17&] (* _Harvey P. Dale_, Sep 20 2022 *)
%o (Magma) [n: n in PrimesUpTo(16000) | n mod 100 eq 17];
%o (PARI) select(x->(x % 100)==17, primes(2000)) \\ _Michel Marcus_, Jul 06 2014
%Y Cf. similar sequences listed in A244763.
%K nonn,base,easy
%O 1,1
%A _Vincenzo Librandi_, Jul 06 2014
|
