A059449 a(n)! begins with 2^n.

1, 2, 8, 14, 89, 164, 18, 266, 304, 292, 2522, 557, 26438, 27045, 57134, 21936

Offset

0,2

Links

Table of n, a(n) for n=0..15.

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

Adjacent sequences: A059446 A059447 A059448 * A059450 A059451 A059452

Keyword

nonn,base

Author

Robert G. Wilson v, Feb 02 2001

Status

approved