cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A239014 Exponents m such that the decimal expansion of 9^m exhibits its first zero from the right later than any previous exponent.

This page as a plain text file.
%I A239014 #28 Mar 16 2022 22:17:15
%S A239014 0,2,3,4,6,7,12,13,14,17,26,34,68,406,926,2227,3379,3824,26364,197564,
%T A239014 9669757,11470439,15754533,18945654,25742286,38175282,237545304,
%U A239014 320907073,2928221215,3653563322,5788579994,25722005323,30228962873,137527721034,217558664165,523648850797
%N A239014 Exponents m such that the decimal expansion of 9^m exhibits its first zero from the right later than any previous exponent.
%C A239014 Assume that a zero precedes all decimal expansions. This will take care of those cases in A030705.
%C A239014 Inspired by the seqfan list discussion Re: "possible sequence", beginning with David Wilson 7:57 PM Mar 06 2014 and continued by _M. F. Hasler_, _Allan C. Wechsler_ and _Franklin T. Adams-Watters_.
%C A239014 Not just two time A001019.
%t A239014 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
%Y A239014 Except for its second term, A030705 is a subsequence.
%Y A239014 Cf. A001019, A020665, A031142, A239008, A239009, A239010, A239011, A239012, A239013, A239015.
%K A239014 nonn,base
%O A239014 1,2
%A A239014 _Charles R Greathouse IV_ and _Robert G. Wilson v_, Mar 14 2014
%E A239014 a(27)-a(31) from _Bert Dobbelaere_, Jan 21 2019
%E A239014 a(32)-a(36) from _Chai Wah Wu_, Jan 13 2020