OFFSET
1,2
COMMENTS
Terms are squarefree. - Michael De Vlieger, Jan 07 2024.
EXAMPLE
a(4) = 3 as a(3)*4 = 6*4 = 24 = 2*2*2*3, and the powerfree part of 24 is 3.
MATHEMATICA
f[x_] := Times @@ Map[#1^(#2 Boole[#2 == 1]) & @@ # &, FactorInteger[x]]; a[n_] := f[n* a[n - 1]]; a[1] = 1; Array[a, 120] (* Michael De Vlieger, Jan 07 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Scott R. Shannon, Jan 07 2024
STATUS
approved