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,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

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] &]

Prog

(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

Crossrefs

Cf. A131306, A383979, A384013, A384015.

Subsequence of A050758.

Cf. A061022 (variant).

Sequence in context: A105124 A272500 A034831 * A142362 A140534 A377839

Adjacent sequences: A383975 A383976 A383977 * A383979 A383980 A383981

Keyword

nonn,base

Author

Stefano Spezia, May 16 2025

Status

approved