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

Author

Stefano Spezia, May 17 2025

Keywords

• nonn
• base

Crossrefs

Cf. A383978, A384014, A384015.

Subsequence of A050758.

Cf. A062353 (variant).

Programs

Mathematica

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