1,5

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/#, 4] &, 80] (* Robert G. Wilson v, Jun 10 2011 *)

Sequence in context: A014599 A274771 A075825 * A002616 A046073 A162912

Adjacent sequences: A007732 A007733 A007734 * A007736 A007737 A007738

nonn

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

More terms from David W. Wilson

approved