OFFSET
0,1
LINKS
Max Alekseyev, Table of n, a(n) for n = 0..211
MATHEMATICA
Table[FactorInteger[17^n + 1] [[-1, 1]], {n, 0, 30}]
PROG
(Magma) [Maximum(PrimeDivisors(17^n + 1)): n in [0..40]];
(PARI) a(n) = vecmax(factor(17^n+1)[, 1]); \\ Jinyuan Wang, Apr 05 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Apr 05 2019
STATUS
approved