A373750 Middle terms of A373749.

0, 0, 1, 1, 0, 4, 3, 2, 0, 7, 5, 3, 0, 10, 7, 4, 0, 13, 9, 5, 0, 16, 11, 6, 0, 19, 13, 7, 0, 22, 15, 8, 0, 25, 17, 9, 0, 28, 19, 10, 0, 31, 21, 11, 0, 34, 23, 12, 0, 37, 25, 13, 0, 40, 27, 14, 0, 43, 29, 15, 0, 46, 31, 16, 0, 49, 33, 17, 0, 52, 35, 18, 0, 55

Offset: 0

Author

Peter Luschny, Jun 23 2024

Keywords

• nonn

Crossrefs

Cf. A373749.

Programs

Maple

REM := (n, k) -> ifelse(k = 0, n, irem(n, k)):
T := n -> local k; seq(REM(k^2, n), k = 0..n):
seq(T(n)[iquo(n, 2) + 1], n = 0..73);