%I #11 Aug 28 2020 11:01:18
%S 0,0,0,1,0,1,2,0,1,2,0,1,2,0,0,1,2,3,0,1,2,3,0,1,2,3,0,1,2,3,2,3,4,0,
%T 1,2,3,4,0,1,2,3,4,0,1,2,3,4,0,1,2,3,4,0,1,2,3,4,0,1,2,3,4,5,0,1,2,3,
%U 4,5,0,1,2,3,4,5,0,1,2,3,4,5,0,1,2,3,4,5,0,1,2,3,4,5,0,1,2,3,4,5,0,1,2,3,4
%N a(n) = n mod floor(log_2(n)).
%C a(A112249(n)) = 0, a(A112250(n)) > 0, a(A112251(n)) = 1.
%p seq(seq(n mod d, n=2^d .. 2^(d+1)-1),d=1..8); # _Robert Israel_, Aug 27 2020
%t Table[Mod[n, Floor @ Log2[n]], {n, 2, 100}] (* _Amiram Eldar_, Aug 27 2020 *)
%o (PARI) a(n) = n % logint(n, 2); \\ _Michel Marcus_, Aug 27 2020
%Y Cf. A000523, A112249, A112250.
%K nonn
%O 2,7
%A _Reinhard Zumkeller_, Aug 30 2005
%E Name edited by _Michel Marcus_, Aug 27 2020
|