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 A374097 #13 Jun 30 2024 22:07:31 %S A374097 0,0,0,0,0,0,0,0,0,0,1,0,1,0,1,0,1,0,1,0,0,1,0,1,0,1,0,1,0,1,1,0,1,0, %T A374097 1,0,1,0,1,0,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,0,1,0,1,0,1,0,1, %U A374097 0,1,1,0,1,0,1,0,1,0,1,0,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,2,2,2,2,2,2,2,2,2,2,2 %N A374097 a(n) = A196563(n)*A196564(n). %C A374097 More than the usual number of terms are shown in order to distinguish this sequence from A180160, from which it first differs at n = 100. %H A374097 Paolo Xausa, <a href="/A374097/b374097.txt">Table of n, a(n) for n = 0..10000</a> %t A374097 A374097[n_] := #*(IntegerLength[n] - #) & [Total[Mod[IntegerDigits[n], 2]]]; %t A374097 Array[A374097, 120, 0] %Y A374097 Cf. A055642, A059708 (positions of zeros), A180160, A196563, A196564. %K A374097 nonn,base,easy %O A374097 0,101 %A A374097 _Paolo Xausa_, Jun 28 2024