|
|
A239014
|
|
Exponents m such that the decimal expansion of 9^m exhibits its first zero from the right later than any previous exponent.
|
|
7
|
|
|
0, 2, 3, 4, 6, 7, 12, 13, 14, 17, 26, 34, 68, 406, 926, 2227, 3379, 3824, 26364, 197564, 9669757, 11470439, 15754533, 18945654, 25742286, 38175282, 237545304, 320907073, 2928221215, 3653563322, 5788579994, 25722005323, 30228962873, 137527721034, 217558664165, 523648850797
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Assume that a zero precedes all decimal expansions. This will take care of those cases in A030705.
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Position[ Reverse@ Join[{0}, IntegerDigits[ PowerMod[9, n, 10^500]]], 0, 1, 1][[1, 1]]; k = mx = 0; lst = {}; While[k < 10000001, c = f[k]; If[c > mx, mx = c; AppendTo[ lst, k]; Print@ k]; k++]; lst
|
|
CROSSREFS
|
Except for its second term, A030705 is a subsequence.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|