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

%I #12 Mar 21 2016 09:57:22

%S 2,13,233,2333,23333,313333,3233333,31333333,333233333,3233333333,

%T 23333333333,333313333333,3333333333383,33133333333333,

%U 323333333333333,1333333333333333,23333333333333333,333333133333333333,3333313333333333333,33313333333333333333

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

%H Michel Lagneau, Michael De Vlieger and Robert G. Wilson v, <a href="/A268703/b268703.txt">Table of n, a(n) for n = 1..1105</a>

%t 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]

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

%K nonn,base

%O 1,1

%A _Michel Lagneau_, _Michael De Vlieger_ and _Robert G. Wilson v_, Feb 11 2016