A268704 Greatest n-digit prime having at least n-1 digits equal to 3.

7, 83, 733, 7333, 38333, 733333, 3733333, 83333333, 373333333, 3334333333, 38333333333, 383333333333, 3433333333333, 53333333333333, 383333333333333, 3733333333333333, 43333333333333333, 353333333333333333, 3333334333333333333, 33343333333333333333

Offset: 1

Author

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

Keywords

• base
• nonn

Links

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

Crossrefs

Cf. A178001, 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 = Max@ Flatten@ p]; Array[f, 20]
Table[Max[Select[FromDigits/@Flatten[Permutations/@Table[PadRight[{n},k,3],{n,{1,2,4,5,7,8}}],1],IntegerLength[#]==k&&PrimeQ[#]&]],{k,20}] (* Harvey P. Dale, Apr 11 2020 *)