A386370 Square roots of partial sums of A386369 that are square numbers.
0, 1, 3, 9, 15, 37, 47, 117, 327, 957, 2847, 8517, 25527, 33129, 33291, 46653, 66855, 147661, 161689, 218691, 503481, 629673, 919347, 2076921, 3007455, 7100533, 7931517, 9022563, 9100641, 11272057, 11437383, 15080379, 32539617, 37443597, 37821775, 53419727
Offset: 1
Keywords
Examples
A386369(1) + ... + A386369(6) = 3^2, so 3 belongs to this sequence.
Programs
-
Mathematica
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 *)
-
PARI
{ t = 0; v = 0; for (n = 1, 86903746, t += v; if (issquare(t), print1 (sqrtint(t) ", "); v = n;);); }
Formula
a(n) = sqrt(A386688(n)). - Paolo Xausa, Jul 29 2025
Extensions
Offset changed to 1 by Paolo Xausa, Jul 29 2025