OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[Max[Transpose[FactorInteger[(1 + n) (1 + n^2)]][[1]]], {n, 0, 60}] (* Vincenzo Librandi, Jun 03 2017 *)
PROG
(Magma) [#f eq 0 select 1 else f[ #f][1] where f is Factorization((1+n)*(1+n^2)): n in [0..60]]; // Vincenzo Librandi, Jun 03 2017
(PARI) a(n) = if (n==0, 1, my(f=factor((1+n)*(1+n^2))); vecmax(f[, 1])); \\ Michel Marcus, Jun 03 2017; corrected Jun 13 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
R. J. Mathar, Jan 30 2017
STATUS
approved