This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Module[{s = 0, a = 0}, Table[If[IntegerQ[Sqrt[s += a]], a = k; s, Nothing], {k, 10^5}]]
Sequence begins: n a(n) a(1)+...+a(n) Square? -- ---- ------------- ------- 1 0 0 Yes 2 1 1 Yes 3 2 3 No 4 2 5 No 5 2 7 No 6 2 9 Yes 7 6 15 No 8 6 21 No 9 6 27 No 10 6 33 No
Module[{s = 0,a = 0}, Table[If[IntegerQ[Sqrt[s += a]], a = n-1]; a, {n, 100}]] (* Paolo Xausa, Jul 29 2025, after Rémy Sigrist *)
{ t = 0; v = 0; for (n = 1, 70, print1 (v", "); t += v; if (issquare(t), v = n;);); }
A386369(1) + ... + A386369(6) = 3^2, so 3 belongs to this sequence.
Module[{s = 0, a = 0}, Table[If[IntegerQ[#], a = k; #, Nothing] & [Sqrt[s += a]], {k, 10^5}]] (* Paolo Xausa, Jul 29 2025, after Rémy Sigrist *)
{ t = 0; v = 0; for (n = 1, 86903746, t += v; if (issquare(t), print1 (sqrtint(t) ", "); v = n;);); }
Comments