login
A181686
Primorials (A002110) whose decimal expansion sets a record for having more of any single digit than its predecessor.
1
2, 13, 19, 31, 83, 101, 103, 137, 157, 191, 223, 229, 277, 317, 349, 367, 409, 449, 571, 601, 631, 661, 691, 701, 739, 743, 827, 997, 1187, 1193, 1259, 1291, 1307, 1327, 1423, 1447, 1553, 1693, 1699, 1723, 1741, 1753, 1759, 1871, 1877, 1987, 2011, 2063, 2081
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
Sequence in context: A142348 A309663 A347259 * A206462 A339542 A020601
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Nov 04 2010
STATUS
approved