A345983 Partial sums of A344005.

1, 2, 4, 7, 11, 13, 19, 26, 34, 38, 48, 51, 63, 69, 74, 89, 105, 113, 131, 135, 141, 151, 173, 181, 205, 217, 243, 250, 278, 283, 313, 344, 355, 371, 385, 393, 429, 447, 459, 474, 514, 520, 562, 573, 582, 604, 650, 665, 713, 737, 754, 766, 818, 844, 854, 861, 879, 907, 965, 980, 1040, 1070

Offset: 1

Author

N. J. A. Sloane, Jul 09 2021

Keywords

• nonn

Links

• N. J. A. Sloane, Table of n, a(n) for n = 1..10000
• N. J. A. Sloane, Table of n, a(n) for n = 1..100000

Crossrefs

Cf. A011772, A344005, A345984.

Programs

Mathematica

spm[n_]:=Module[{m=1},While[!Divisible[m(m+1),n],m++];m]; Accumulate[ Array[ spm,100]] (* Harvey P. Dale, Dec 04 2022 *)