%I #2 Mar 30 2012 17:30:30
%S 1,2,8,14,89,164,18,266,304,292,2522,557,26438,27045,57134,21936
%N a(n)! begins with 2^n.
%t Do[ a = 2^n; b = Floor[ N[ Log[ 10, a ] ] + 1 ]; k = 1; While[ c = Floor[ N[ Log[ 10, k! ] ] + 1 ]; a != (k! - Mod[ k!, 10^(c - b) ] )/10^(c - b), k++ ]; Print[ k ], {n, 0, 20} ]
%Y Cf. A058885.
%K nonn,base
%O 0,2
%A _Robert G. Wilson v_, Feb 02 2001
|