OFFSET
2,1
LINKS
Colin Barker, Table of n, a(n) for n = 2..1000
EXAMPLE
a(3) = 3 because A000384(3) = 15 = 3 * 5.
MATHEMATICA
Table[FactorInteger[n(2n-1)][[1, 1]], {n, 2, 100}] (* Harvey P. Dale, May 05 2016 *)
PROG
(PARI)
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
spf(m) = factorint(m)[1, 1] \\ Smallest prime factor
a(n) = spf(pg(6, n))
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Jul 20 2015
STATUS
approved