A268703 Smallest n-digit prime having at least n-1 digits equal to 3.

2, 13, 233, 2333, 23333, 313333, 3233333, 31333333, 333233333, 3233333333, 23333333333, 333313333333, 3333333333383, 33133333333333, 323333333333333, 1333333333333333, 23333333333333333, 333333133333333333, 3333313333333333333, 33313333333333333333

Offset: 1

Author

Michel Lagneau, Michael De Vlieger and Robert G. Wilson v, Feb 11 2016

Keywords

• nonn
• base

Links

• Michel Lagneau, Michael De Vlieger and Robert G. Wilson v, Table of n, a(n) for n = 1..1105

Crossrefs

Cf. A037059, A241100, A268702 - A268707, A241206, A266142.

Programs

Mathematica

f[n_] := Block[{k = 0, p = {}, r = (10^n - 1)/3, s = Range@ 10 - 4}, While[k < n, AppendTo[p, Select[r + 10^k*s, PrimeQ]]; k++]; p = Min@ Flatten@ p]; f[1] = 2; f[2] = 13; Array[f, 20]