|
%I #17 Sep 08 2022 08:46:08
%S 79,179,379,479,1279,1579,1879,1979,2179,2579,2879,3079,3779,4079,
%T 4679,5179,5279,5479,5779,5879,6079,6379,6679,6779,7079,7879,8179,
%U 8779,9479,9679,10079,10979,11279,11579,11779,12379,12479,12979,13679,13879
%N Prime numbers ending in the prime number 79.
%C Also primes of the form 100*n+79. Subsequence of A141887, A141930.
%H Vincenzo Librandi, <a href="/A244775/b244775.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={7, 9} &]
%t Select[Prime[Range[2000]],Mod[#,100]==79&] (* _Harvey P. Dale_, Nov 29 2017 *)
%o (Magma) [n: n in PrimesUpTo(14000) | n mod 100 eq 79];
%o (PARI) select(x->(x % 100)==79, primes(2000)) \\ _Michel Marcus_, Jul 07 2014
%Y Cf. similar sequences listed in A244763.
%Y Cf. A141887, A141930.
%K nonn,base
%O 1,1
%A _Vincenzo Librandi_, Jul 07 2014
|
