%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