OFFSET
1,1
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
FORMULA
a(1) = 2; for n >= 2, a(n) = A253560(n).
MATHEMATICA
Join[{2}, Table[n*Last@(First/@FactorInteger[n]), {n, 2, 200}]] (* Vladimir Joseph Stephan Orlovsky, Apr 08 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 01 2007
STATUS
approved