A374432 Row sums of A374433.

1, 2, 4, 6, 7, 10, 16, 14, 13, 16, 28, 22, 31, 26, 40, 46, 25, 34, 46, 38, 55, 66, 64, 46, 61, 46, 76, 46, 79, 58, 136, 62, 49, 106, 100, 118, 91, 74, 112, 126, 109, 82, 196, 86, 127, 136, 136, 94, 121, 92, 136, 166, 151, 106, 136, 190, 157, 186, 172, 118, 271

Offset: 0

Author

Peter Luschny, Jul 10 2024

Keywords

• nonn

Crossrefs

Cf. A374433, A176345 (a(n + 1) - 1).

Programs

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 *)

Python

print([sum([A374433(n, k) for k in range(n + 1)]) for n in range(61)])