A176921 Period of decimal representation of 1/n^3.

1, 1, 3, 1, 1, 3, 294, 1, 81, 1, 242, 3, 1014, 294, 3, 1, 4624, 81, 6498, 1, 294, 242, 11638, 3, 1, 1014, 2187, 294, 23548, 3, 14415, 1, 726, 4624, 294, 81, 4107, 6498, 1014, 1, 8405, 294, 38829, 242, 81, 11638, 101614, 3, 100842, 1, 13872, 1014, 36517, 2187

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 29 2010

Keywords

• nonn
• base

Crossrefs

Cf. A007732, A176920

Programs

Mathematica

DigitCycleLength[r_Rational,b_Integer?Positive]:=MultiplicativeOrder[b,FixedPoint[Quotient[ #,GCD[ #,b]]&,Denominator[r]]];Table[If[n<2,1,DigitCycleLength[1/n^3,10]],{n,5!}]