A181686 Primorials (A002110) whose decimal expansion sets a record for having more of any single digit than its predecessor.

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

Links

Table of n, a(n) for n=1..49.

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

Adjacent sequences: A181683 A181684 A181685 * A181687 A181688 A181689

Keyword

nonn,base

Author

Robert G. Wilson v, Nov 04 2010

Status

approved