OFFSET
1,1
EXAMPLE
The octal expansion of 1/73 is 0.007007..., having a period of 3 and it is the only prime with that period.
MATHEMATICA
lst1 = {}; lst2 = {}; lst4 = {}; Do[c = Cyclotomic[n, 8]; q = c/GCD[n, c]; If[PrimePowerQ[q], p = FactorInteger[q][[1, 1]]; AppendTo[lst1, p]; AppendTo[lst2, n]], {n, 561}]; lst3 = Sort[lst1]; Do[AppendTo[lst4, Take[lst2, Flatten@Position[lst1, lst3[[p]]]]], {p, Length@lst3}]; Flatten[lst4]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Arkadiusz Wesolowski, Oct 09 2012
STATUS
approved