A342711 Partial sums of A000267.
1, 3, 6, 9, 13, 17, 22, 27, 32, 38, 44, 50, 57, 64, 71, 78, 86, 94, 102, 110, 119, 128, 137, 146, 155, 165, 175, 185, 195, 205, 216, 227, 238, 249, 260, 271, 283, 295, 307, 319, 331, 343, 356, 369, 382, 395, 408, 421, 434, 448, 462, 476, 490, 504, 518, 532, 547
Offset: 0
Keywords
Programs
-
Mathematica
Accumulate @ Array[Floor @ Sqrt[4*# + 1] &, 100, 0] (* Amiram Eldar, Mar 19 2021 *)
-
PARI
a(n) = sum(i=0, n, sqrtint(4*i+1)); \\ Michel Marcus, Mar 19 2021
Comments