login
Smallest factorial containing exactly n 6's.
1

%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