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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A011557.

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

Sequence in context: A246286 A295464 A095426 * A290390 A183709 A247312

Adjacent sequences: A038450 A038451 A038452 * A038454 A038455 A038456

Keyword

nonn,easy

Author

Olivier Gérard

Extensions

Offset changed to 1 by Ivan Neretin, Feb 28 2016

Status

approved