login
Period of decimal representation of 1/n^3.
0

%I #4 Mar 31 2012 12:38:36

%S 1,1,3,1,1,3,294,1,81,1,242,3,1014,294,3,1,4624,81,6498,1,294,242,

%T 11638,3,1,1014,2187,294,23548,3,14415,1,726,4624,294,81,4107,6498,

%U 1014,1,8405,294,38829,242,81,11638,101614,3,100842,1,13872,1014,36517,2187

%N Period of decimal representation of 1/n^3.

%t 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!}]

%Y Cf. A007732, A176920

%K nonn,base

%O 1,3

%A _Vladimir Joseph Stephan Orlovsky_, Apr 29 2010