|
%I #4 May 23 2015 12:11:55
%S 6,1307674368000,25852016738884976640000,403291461126605635584000000,
%T 263130836933693530167218012160000000,
%U 33452526613163807108170062053440751665152000000000,10333147966386144929666651337523200000000
%N Smallest factorial containing exactly n 6's.
%e a(2)=1307674368000 so 1307674368000 is the smallest factorial containing exactly two 6's.
%t With[{f=Range[300]!},Table[SelectFirst[f,DigitCount[#,10,6]==n&],{n,10}]] (* The program uses the SelectFirst function from Mathematica version 10 *) (* _Harvey P. Dale_, May 23 2015 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Jul 30 2002
%E One additional term (a(7)) from _Harvey P. Dale_, May 23 2015
| 