OFFSET
0,2
MAPLE
seq(add(A374433(n, k), k = 0..n), n=0..60);
MATHEMATICA
nn = 120; Do[Set[s[i], FactorInteger[i][[All, 1]]], {i, 0, nn}]; s[0] = {1};
Table[Sum[Times @@ Intersection[s[k], s[n]], {k, 0, n}], {n, 0, nn}] (* Michael De Vlieger, Jul 11 2024 *)
PROG
(Python)
print([sum([A374433(n, k) for k in range(n + 1)]) for n in range(61)])
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jul 10 2024
STATUS
approved