A383978 Primes with at least two identical trailing digits.
11, 199, 211, 233, 277, 311, 433, 499, 577, 599, 677, 733, 811, 877, 911, 977, 1033, 1277, 1399, 1433, 1499, 1511, 1699, 1733, 1777, 1811, 1877, 1933, 1999, 2011, 2099, 2111, 2311, 2333, 2377, 2399, 2411, 2477, 2633, 2677, 2699, 2711, 2777, 2833, 2999, 3011, 3299
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
select(isprime, [seq(seq(i*100 + j*11, j = [1,3,7,9]),i=0..100)]); # Robert Israel, May 17 2025
-
Mathematica
Select[Prime[Range[500]],Part[d=IntegerDigits[#],l=IntegerLength[#]]==Part[d,l-1] &]
-
Python
from sympy import isprime from itertools import count, islice def agen(): # generator of terms yield from filter(isprime, (i+k for i in count(0, 100) for k in (11, 33, 77, 99))) print(list(islice(agen(), 50))) # Michael S. Branicky, May 20 2025