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

Author

Amiram Eldar, Jul 26 2025

Keywords

• nonn
• base
• more

Examples

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

Crossrefs

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

Programs

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]

Formula

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