A386687 Partial sums of A386369.
0, 1, 3, 5, 7, 9, 15, 21, 27, 33, 39, 45, 51, 57, 63, 69, 75, 81, 99, 117, 135, 153, 171, 189, 207, 225, 251, 277, 303, 329, 355, 381, 407, 433, 459, 485, 511, 537, 563, 589, 615, 641, 667, 693, 719, 745, 771, 797, 823, 849, 875, 901, 927, 953, 979, 1005, 1031, 1057, 1083, 1109
Offset: 1
Links
- Paolo Xausa, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Module[{s = 0, a = 0},Table[If[IntegerQ[Sqrt[s += a]], a = n]; s, {n, 100}]]
Formula
a(n) = Sum_{k=1..n} A386369(k).