%I #17 Nov 13 2022 15:34:58
%S 89,389,1289,1489,1789,1889,2089,2389,2689,2789,3089,3389,3889,3989,
%T 4289,4789,4889,5189,5689,6089,6389,6689,7489,7589,7789,8089,8389,
%U 8689,9689,10289,10589,10789,10889,11489,11689,11789,12289,12589,12689,12889
%N Prime numbers ending in the prime number 89.
%C Also primes of the form 100*n+89. Subsequence of A141883, A141938.
%H Vincenzo Librandi, <a href="/A244777/b244777.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={8, 9} &]
%t Select[100 Range[0,200]+89,PrimeQ] (* _Harvey P. Dale_, Nov 13 2022 *)
%o (Magma) [n: n in PrimesUpTo(15000) | n mod 100 eq 89];
%o (PARI) select(x->(x % 100)==89, primes(2000)) \\ _Michel Marcus_, Jul 07 2014
%Y Cf. similar sequences listed in A244763.
%Y Cf. A141883, A141938.
%K nonn,base
%O 1,1
%A _Vincenzo Librandi_, Jul 07 2014
|