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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Feb 02 2001
STATUS
approved