A045964 Partial sums of A045954.

2, 6, 12, 22, 34, 52, 72, 94, 120, 154, 190, 232, 276, 326, 378, 432, 490, 558, 628, 704, 788, 878, 976, 1076, 1178, 1286, 1400, 1516, 1634, 1764, 1896, 2034, 2174, 2322, 2472, 2636, 2806, 2978, 3156, 3338, 3524, 3720, 3918, 4130, 4344, 4562, 4790, 5020, 5254

Offset: 1

Author

Felice Russo

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A045954.

Programs

Mathematica

seq[max_] := Module[{lst = Range[2, max, 2], i = 2, len}, While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++]; Accumulate[lst]]; seq[250] (* Amiram Eldar, Mar 20 2024, after Robert G. Wilson v at A045954 *)

Extensions

More terms from David W. Wilson