OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
a(4) = 7 because 7 powers of factorials do not exceed 4!, namely, 1, 2, 4, 6, 8, 16 and 24.
MATHEMATICA
p[n_] := If[n>1, Union[Flatten[With[{ln=Log[n! ]}, Table[With[{f=m!}, Table[f^j, {j, 0, Floor[ln/Log[f]]}]], {m, 2, n}]]]], {1}]; Table[Length[p[n]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Sondow, Dec 22 2004
STATUS
approved