OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..268
FORMULA
a(n) = n! * A048803(n). - Robert Israel, Oct 02 2016
MAPLE
MATHEMATICA
Table[Product[i Last@ Select[Divisors@ i, SquareFreeQ], {i, n}], {n, 0, 17}] (* Michael De Vlieger, Oct 02 2016 *)
PROG
(PARI) a(n) = prod(i=1, n, i*factorback(factorint(i)[, 1])); \\ Michel Marcus, Oct 03 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Oct 02 2016
STATUS
approved