OFFSET
2,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 2..1000
PrimeFan, Listing of Esoteric Integer Sequences
MATHEMATICA
SPF[n_] := (FactorInteger[n])[[1]][[1]]; Flatten[Table[SPF[n^2 + (n - 1)], {n, 2, 50}]]
Table[FactorInteger[n^2+n-1][[1, 1]], {n, 2, 50}] (* Harvey P. Dale, Aug 20 2014 *)
PROG
(Magma) [Min(PrimeFactors(n^2+n-1)):n in[2..70]]; // Vincenzo Librandi, Sep 18 2016
(PARI) a(n) = vecmin(factor(n^2+n-1)[, 1]); \\ Michel Marcus, Sep 18 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 05 2012
STATUS
approved