OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
a = {}; Do[AppendTo[a, 2n^3 - 2n + 9], {n, 1, 300}]; b = {}; Do[c = FactorInteger[a[[n]]]; d = c[[Length[c]]]; AppendTo[b, d[[1]]], {n, 1, Length[a]}]; b
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Feb 10 2007
STATUS
approved