OFFSET
1,2
COMMENTS
Partial sums of A339399.
FORMULA
MATHEMATICA
Table[Sum[((1 + (-1)^k) (1 + Floor[Sqrt[2 k - 1 - (-1)^k]])/2 - ((2 k + 1 - (-1)^k)/2 - 2 Sum[Floor[(i + 1)/2], {i, -1 + Floor[Sqrt[2 k - 2 - (-1)^k]]}]) (-1)^k/2), {k, n}], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Nov 20 2021
STATUS
approved