OFFSET
1,1
FORMULA
EXAMPLE
2^12 - 1 = 4095 = 3 * 3 * 5 * 7 * 13, but none of 3, 5, 7 is a primitive prime factor, so the only primitive prime factor of 2^12 - 1 is 13.
MATHEMATICA
nmax = 65536; primesPeriods = Reap[Do[p = Cyclotomic[n, 2]/GCD[n, Cyclotomic[n, 2]]; If[PrimeQ[p], Print[n]; Sow[{p, n}]], {n, 1, nmax}]][[2, 1]]; Sort[primesPeriods][[All, 2]]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Eric Chen, Nov 16 2014
EXTENSIONS
Sequence trimmed to the established terms of A144755 by Max Alekseyev, Feb 11 2024
STATUS
approved