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 A088150 #6 Feb 16 2025 08:32:51
%S A088150 1,0,1,1,0,1,1,1,0,0,1,1,0,0,1,0,0,1,1,1,0,0,1,1,0,0,1,0,0,1,1,1,0,0,
%T A088150 1,0,0,0,1,0,0,0,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,0,1,1,0,1,1,1,0,1,1,1,
%U A088150 0,0,1,1,0,1,1,0,0,0,1,0,0,1,1,1,0,1,1,1,0,0,1,1,0,0,1,1,0,1,1,1,0,1
%N A088150 Value of n-th digit (counting from the right) in binary representation of n^n.
%C A088150 a(n)=d(n) with n^n = Sum(d(k)*2^k: 0<=d(k)<2, k>=0).
%H A088150 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Binary.html">Binary</a>
%F A088150 a(n) = floor(n^n / 2^n) mod 2.
%e A088150 n=5, 5^5=3125 -> '110000110101', '1100001-----': a(5)=1.
%t A088150 Join[{1,0},Table[IntegerDigits[n^n,2][[-n-1]],{n,2,110}]] (* _Harvey P. Dale_, Oct 14 2021 *)
%Y A088150 Cf. A007088, A000312, A088151, A088152, A088153, A088154, A088155, A088156, A088157.
%K A088150 nonn,base
%O A088150 0,1
%A A088150 _Reinhard Zumkeller_, Sep 20 2003
%E A088150 Definition clarified by _Harvey P. Dale_, Oct 14 2021