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 A386568 #10 Jul 30 2025 19:59:59
%S A386568 1,3,26,254,2526,25270,252666,2526605,25266035,252660259,2526602596,
%T A386568 25266025903,252660259016,2526602590093
%N A386568 The number of binary self numbers not exceeding 10^n.
%F A386568 Limit_{n->oo} a(n)/10^n = A242403.
%e A386568 There are 3 binary self numbers that do no exceed 10: 1, 4 and 6. Hence a(1) = 3.
%t A386568 selfQ[n_] := AllTrue[Range[n, n - Floor@Log2[n], -1], # + DigitCount[#, 2, 1] != n &]; a[n_] := Count[Range[10^n], _?selfQ]; Array[a, 6, 0]
%Y A386568 Cf. A010061, A242403, A382452 (decimal analog), A386569.
%K A386568 nonn,base,more
%O A386568 0,2
%A A386568 _Amiram Eldar_, Jul 26 2025