|
|
A176921
|
|
Period of decimal representation of 1/n^3.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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!}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|