A386568 The number of binary self numbers not exceeding 10^n.

1, 3, 26, 254, 2526, 25270, 252666, 2526605, 25266035, 252660259, 2526602596, 25266025903, 252660259016, 2526602590093

Offset

0,2

Links

Table of n, a(n) for n=0..13.

Formula

Limit_{n->oo} a(n)/10^n = A242403.

Example

There are 3 binary self numbers that do no exceed 10: 1, 4 and 6. Hence a(1) = 3.

Mathematica

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]

Crossrefs

Cf. A010061, A242403, A382452 (decimal analog), A386569.

Sequence in context: A052141 A062793 A300398 * A390597 A048861 A053972

Adjacent sequences: A386565 A386566 A386567 * A386569 A386570 A386571

Keyword

nonn,base,more

Author

Amiram Eldar, Jul 26 2025

Status

approved