OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Zsigmondy's Theorem
PROG
(PARI) rad(n) = factorback(factor(n)[, 1])
lista(nn) = {prad = 1; for (n=1, nn, val = 5^n-3^n; d = divisors(val); gd = 1; forstep(k=#d, 1, -1, if (gcd(d[k], prad) == 1, g = d[k]; break)); print1(g, ", "); prad = ra(prad*val); ); } \\ Michel Marcus, Nov 15 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post, Aug 21 2005
EXTENSIONS
Edited, corrected and extended by Ray Chandler, Aug 26 2005
Definition corrected by Jerry Metzger, Nov 04 2009
More terms from Michel Marcus, Nov 14 2016
STATUS
approved