A344404 a(n) = Sum_{d|n} floor(n/d^2).

1, 2, 3, 5, 5, 7, 7, 10, 10, 12, 11, 16, 13, 17, 16, 21, 17, 24, 19, 26, 23, 27, 23, 33, 26, 32, 30, 36, 29, 41, 31, 42, 36, 42, 36, 52, 37, 47, 43, 53, 41, 57, 43, 57, 51, 57, 47, 69, 50, 64, 56, 68, 53, 74, 57, 74, 63, 72, 59, 87, 61, 77, 71, 85, 67, 90, 67, 89, 76, 90, 71

Offset

1,2

Comments

If p is prime, a(p) = Sum_{d|p} floor(p/d^2) = p + 0 = p.

If n = p^k where p is prime and k is a positive integer, then a(p^k) = Sum_{i=1..floor(k/2)+1} p^(k-2*i+2).

Links

Table of n, a(n) for n=1..71.

Mathematica

Table[Sum[(1 - Ceiling[n/k] + Floor[n/k]) Floor[n/k^2], {k, n}], {n, 100}]

Prog

(PARI) a(n) = sumdiv(n, d, n\d^2); \\ Michel Marcus, May 17 2021

Crossrefs

Cf. A344128, A344403, A344405.

Sequence in context: A048947 A342658 A222312 * A298676 A114519 A126762

Adjacent sequences: A344401 A344402 A344403 * A344405 A344406 A344407

Keyword

nonn

Author

Wesley Ivan Hurt, May 16 2021

Status

approved