A384013 Primes with at least two identical leading digits.

11, 113, 223, 227, 229, 331, 337, 443, 449, 557, 661, 773, 881, 883, 887, 991, 997, 1103, 1109, 1117, 1123, 1129, 1151, 1153, 1163, 1171, 1181, 1187, 1193, 2203, 2207, 2213, 2221, 2237, 2239, 2243, 2251, 2267, 2269, 2273, 2281, 2287, 2293, 2297, 3301, 3307, 3313

Offset

1,1

Links

Table of n, a(n) for n=1..47.

Mathematica

Select[Prime[Range[5, 500]], Part[d=IntegerDigits[#], 1]==Part[d, 2] &]

Crossrefs

Cf. A383978, A384014, A384015.

Subsequence of A050758.

Cf. A062353 (variant).

Sequence in context: A090227 A050758 A166572 * A111463 A142483 A001268

Adjacent sequences: A384010 A384011 A384012 * A384014 A384015 A384016

Keyword

nonn,base

Author

Stefano Spezia, May 17 2025

Status

approved