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

%I #4 Mar 30 2012 17:31:31

%S 2,13,19,31,83,101,103,137,157,191,223,229,277,317,349,367,409,449,

%T 571,601,631,661,691,701,739,743,827,997,1187,1193,1259,1291,1307,

%U 1327,1423,1447,1553,1693,1699,1723,1741,1753,1759,1871,1877,1987,2011,2063,2081

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

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

%K nonn,base

%O 1,1

%A _Robert G. Wilson v_, Nov 04 2010