login
A059449
a(n)! begins with 2^n.
1
1, 2, 8, 14, 89, 164, 18, 266, 304, 292, 2522, 557, 26438, 27045, 57134, 21936
OFFSET
0,2
MATHEMATICA
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} ]
CROSSREFS
Cf. A058885.
Sequence in context: A277649 A192777 A054981 * A272930 A140973 A065907
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Feb 02 2001
STATUS
approved