1,3

T. D. Noe, Table of n, a(n) for n=1..1000

Index entries for sequences related to decimal expansion of 1/n

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 *)

Sequence in context: A194735 A130544 A214027 * A330086 A290935 A031424

Adjacent sequences: A007736 A007737 A007738 * A007740 A007741 A007742

nonn,base

N. J. A. Sloane, Hal Sampson (hals(AT)easynet.com)

More terms from David W. Wilson

approved