OFFSET
1,1
EXAMPLE
a(2)=87178291200 so 87178291200 is the smallest factorial containing exactly two 7's.
MATHEMATICA
With[{f=Range[200]!}, Table[SelectFirst[f, DigitCount[#, 10, 7]==n&], {n, 6}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 07 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Jul 30 2002
EXTENSIONS
a(7) from Harvey P. Dale, Aug 07 2019
STATUS
approved