A373750 - OEIS

%I #4 Jun 24 2024 06:34:37

%S 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,

%T 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,

%U 14,0,43,29,15,0,46,31,16,0,49,33,17,0,52,35,18,0,55

%N Middle terms of A373749.

%p REM := (n, k) -> ifelse(k = 0, n, irem(n, k)):

%p T := n -> local k; seq(REM(k^2, n), k = 0..n):

%p seq(T(n)[iquo(n, 2) + 1], n = 0..73);

%Y Cf. A373749.

%K nonn

%O 0,6

%A _Peter Luschny_, Jun 23 2024