login
A374432
Row sums of A374433.
1
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,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
Cf. A374433, A176345 (a(n + 1) - 1).
Sequence in context: A094453 A191200 A026398 * A179003 A318785 A190206
KEYWORD
nonn
AUTHOR
Peter Luschny, Jul 10 2024
STATUS
approved