OFFSET
1,4
COMMENTS
Contains all nonnegative integers not in A189151.
MATHEMATICA
Table[Sum[Floor[Sqrt[n - k]], {k, Floor[Sqrt[n]]}], {n, 80}]
PROG
(PARI) a(n) = sum(k=1, sqrtint(n), sqrtint(n-k)); \\ Michel Marcus, Apr 24 2021
(Python)
from math import isqrt
def a(n): return sum(isqrt(n-k) for k in range(1, isqrt(n)+1))
print([a(n) for n in range(1, 75)]) # Michael S. Branicky, Apr 24 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Apr 24 2021
STATUS
approved