|
Search: id:A059449
|
|
| |
|
| 1, 2, 8, 14, 89, 164, 18, 266, 304, 292, 2522, 557, 26438, 27045, 57134, 21936
(list; graph; listen)
|
|
|
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: A111001 A055258 A054981 this_sequence A065907 A031272 A063286
Adjacent sequences: A059446 A059447 A059448 this_sequence A059450 A059451 A059452
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 02 2001
|
|
|
Search completed in 0.002 seconds
|
