This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A112248 #11 Aug 28 2020 11:01:18 %S A112248 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 A112248 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 A112248 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 A112248 a(n) = n mod floor(log_2(n)). %C A112248 a(A112249(n)) = 0, a(A112250(n)) > 0, a(A112251(n)) = 1. %p A112248 seq(seq(n mod d, n=2^d .. 2^(d+1)-1),d=1..8); # _Robert Israel_, Aug 27 2020 %t A112248 Table[Mod[n, Floor @ Log2[n]], {n, 2, 100}] (* _Amiram Eldar_, Aug 27 2020 *) %o A112248 (PARI) a(n) = n % logint(n, 2); \\ _Michel Marcus_, Aug 27 2020 %Y A112248 Cf. A000523, A112249, A112250. %K A112248 nonn %O A112248 2,7 %A A112248 _Reinhard Zumkeller_, Aug 30 2005 %E A112248 Name edited by _Michel Marcus_, Aug 27 2020