OFFSET
1,1
LINKS
FORMULA
EXAMPLE
1/271 = 0.0036900369, period of n=5 for p(5)=271.
MATHEMATICA
a[n_] := Cyclotomic[n, 10] // FactorInteger // Last // First; Table[a[n], {n, 1, 26}] (* Jean-François Alcover, Aug 05 2013, after Pari *)
PROG
(PARI) a(n) = my(p); if(n<1, 0, p=factor(polcyclo(n, 10))[, 1]; p[#p])
CROSSREFS
KEYWORD
nonn,nice,base
AUTHOR
Heiner Muller-Merbach (hmm(AT)sozwi.uni-kl.de), May 29 2001
EXTENSIONS
Terms to a(322) in b-file from Ray Chandler, Apr 28 2017
a(323)-a(352) in b-file from Max Alekseyev, Apr 26 2022
STATUS
approved