A365596 Near-repdigit primes with at least two 3's as the repeated digit.

331, 337, 3331, 33331, 333331, 333337, 3333331, 33333331, 333333333333333331, 3333333333333333333333333333333333333331, 3333333333333333333333333333333333333333333337, 33333333333333333333333333333333333333333333333331

Offset

1,1

Comments

The final digit must be 1 or 7. - Harvey P. Dale, May 28 2026

Links

Harvey P. Dale, Table of n, a(n) for n = 1..21 (first 19 terms from Robert Price)

Example

3331 is a term because all digits are equal to 3 except the last one.

Mathematica

Select[FromDigits/@Flatten[Table[{PadLeft[{1}, n, 3], PadLeft[{7}, n, 3]}, {n, 3, 50}], 1], PrimeQ] (* Harvey P. Dale, May 28 2026 *)

Crossrefs

Cf. A105976, A105978, A105979, A105980, A105982, A365592, A365596, A365597, A365598.

Sequence in context: A381980 A319718 A319921 * A179400 A139657 A140000

Adjacent sequences: A365593 A365594 A365595 * A365597 A365598 A365599

Keyword

base,nonn

Author

Robert Price, Sep 10 2023

Status

approved