%I A072163
%S A072163 2,14,13,30,40,47,31,46,54,49,65,76,62,69,107,78,86,115,95,121,109,165,
%T A072163 110,113,149,151,146,137,162,159,170,191,195,174,190,196,164,209,202,
%U A072163 173,198,248,201,262,231,205,263,233,246,256,270,244,287,200,271,250
%N A072163 a(n)-th factorial is the smallest factorial containing exactly n 2's, 
               or 0 if no such number exists.
%e A072163 a(2)=14 since 14-th factorial i.e. 14!=87178291200 contains exactly two 
               2's.
%t A072163 Do[k = 1; While[ Count[IntegerDigits[k! ], 2] != n, k++ ]; Print[k], 
               {n, 1, 60}]
%Y A072163 Cf. A072293, A072220, A072208, A072204, A072200, A072199, A072178, A072177 
               & A072124.
%Y A072163 Sequence in context: A084677 A082609 A158787 this_sequence A084674 A009774 
               A032933
%Y A072163 Adjacent sequences: A072160 A072161 A072162 this_sequence A072164 A072165 
               A072166
%K A072163 base,nonn
%O A072163 1,1
%A A072163 Shyam Sunder Gupta (guptass(AT)rediffmail.com), Jul 30 2002
%E A072163 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 31 
               2002