OFFSET
1,1
MATHEMATICA
f[n_] := Max@DigitCount@n; lst = {}; p = 2; pp = 1; mx = 0; While[p < 2131, pp = pp*p; a = f@pp; If[a > mx, mx = a; AppendTo[lst, p]]; p = NextPrime@p]; lst
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Nov 04 2010
STATUS
approved