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.
%I A007739 #24 Aug 26 2024 04:55:45 %S A007739 1,1,2,1,4,2,1,1,2,4,10,2,4,1,4,1,8,2,6,4,2,10,11,2,20,4,6,1,28,4,5,1, %T A007739 10,8,4,2,12,6,4,4,20,2,14,10,4,11,23,2,7,20,8,4,52,6,20,1,6,28,58,4, %U A007739 20,5,2,1,4,10,22,8,22,4,35,2,3,12,20,6,10,4,13,4,18,20,82,2,8,14,28,10,11,4,4 %N A007739 Period of repeating digits of 1/n in base 8. %H A007739 T. D. Noe, <a href="/A007739/b007739.txt">Table of n, a(n) for n=1..1000</a> %H A007739 <a href="/index/1#1overn">Index entries for sequences related to decimal expansion of 1/n</a>. %t A007739 DigitCycleLength[r_Rational, b_Integer?Positive] := MultiplicativeOrder[b, FixedPoint[ Quotient[#, GCD[#, b]] &, Denominator[r]]]; DigitCycleLength[1, b_Integer?Positive] = 1; Array[ DigitCycleLength[1/#, 8] &, 80] (* _Robert G. Wilson v_, Jun 10 2011 *) %t A007739 a[n_] := MultiplicativeOrder[8, n/2^IntegerExponent[n, 2]]; Array[a, 100] (* _Amiram Eldar_, Aug 26 2024 *) %Y A007739 Cf. A007733 (base 2), A007734 (3), A007735 (4), A007736 (5), A007737 (6), A007738 (7), A007740 (9), A007732 (10). %K A007739 nonn,base %O A007739 1,3 %A A007739 _N. J. A. Sloane_, Hal Sampson (hals(AT)easynet.com) %E A007739 More terms from _David W. Wilson_