%I A093826
%S A093826 5,1,16,12,49,58,60,110,209,117,240,430,255,1423,921,980,511,1847,3737,
%T A093826 3692,3998,7265,15267,15651,15722
%N A093826 In binary representation: least number, k, which occurs n times in its 
               factorial.
%e A093826 12!_b = 11100100011001111110000000000 and 12_b = 1100 and the later string 
               appears thrice in the former string.
%t A093826 f[n_] := ToString[ FromDigits[ IntegerDigits[n, 2]]]; g[n_] := Length[ 
               StringPosition[ f[n! ], f[n]]]; a = Table[0, {30}]; Do[ b = g[n]; 
               If[a[[b + 1]] == 0, a[[b + 1]] = n], {n, 29000}]; a
%Y A093826 Cf. A093685.
%Y A093826 Sequence in context: A157397 A157405 A019429 this_sequence A144699 A066787 
               A058352
%Y A093826 Adjacent sequences: A093823 A093824 A093825 this_sequence A093827 A093828 
               A093829
%K A093826 nonn
%O A093826 0,1
%A A093826 Robert G. Wilson v (rgwv(AT)rgwv.com) and Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               Apr 16 2004