A038453 Sums of 11 distinct powers of 10.

11111111111, 101111111111, 110111111111, 111011111111, 111101111111, 111110111111, 111111011111, 111111101111, 111111110111, 111111111011, 111111111101, 111111111110, 1001111111111, 1010111111111, 1011011111111, 1011101111111, 1011110111111, 1011111011111, 1011111101111

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• easy

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A011557.

Cf. A038444, A038445, A038446, A038447, A038448, A038449, A038450, A038451, A038452, A038454.

Programs

Mathematica

Union[Total/@Subsets[10^Range[0,12],{11}]] (* Harvey P. Dale, Jan 20 2013 *)

PARI

lista(nn) = {for (n=1, nn, if (hammingweight(n) == 11, print1(subst(Pol(binary(n)), x, 10), ", ");););} \\ Michel Marcus, Feb 29 2016

Python

from itertools import islice
def A038453_gen(): # generator of terms
    yield int(bin(n:=2047)[2:])
    while True: yield int(bin((n:=n^((a:=-n&n+1)|(a>>1)) if n&1 else ((n&~(b:=n+(a:=n&-n)))>>a.bit_length())^b))[2:])
A038453_list = list(islice(A038453_gen(),20)) # Chai Wah Wu, Mar 11 2025

Extensions

Offset changed to 1 by Ivan Neretin, Feb 28 2016