|
|
A239011
|
|
Exponents m such that the decimal expansion of 6^m exhibits its first zero from the right later than any previous exponent.
|
|
7
|
|
|
0, 2, 3, 4, 6, 7, 8, 12, 17, 24, 29, 42, 44, 101, 104, 128, 1015, 1108, 2629, 9683, 676076, 917474, 34882222, 53229360, 58230015, 90064345, 309000041, 319582553, 342860474, 382090917, 2770253437, 4380407969, 4407585753, 6966554399, 21235488251, 99404304146
(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 A030702.
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Position[ Reverse@ Join[{0}, IntegerDigits[ PowerMod[6, 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
|
Cf. A000400, A030702, A020665, A031142, A239008, A239009, A239010, A239012, A239013, A239014, A239015.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|