A173407 Partial sums of A002106.
1, 2, 4, 9, 14, 30, 37, 87, 121, 166, 174, 475, 484, 547, 651, 2605, 2615, 3598, 3606, 4723, 4887, 4946, 4953, 29953, 30164, 30260, 32652, 34506, 34514, 40226, 40238, 2841562, 2841724, 2841839, 2842246, 2963525, 2963536, 2963612, 2963918, 3279760, 3279770, 3289261, 3289271, 3291384, 3302307, 3302363, 3302369
Offset: 1
Programs
-
Mathematica
Cases[Import["https://oeis.org/A002106/b002106.txt", "Table"], {, }][[All, 2]] // Accumulate (* Jean-François Alcover, Jan 03 2020 *)
Formula
a(n) = Sum_{i=1..n} A002106(i).
Extensions
More terms from Jinyuan Wang, Feb 23 2020
More terms from Vaclav Kotesovec, Jul 18 2022
Comments