A038452 Sums of 10 distinct powers of 10.

1111111111, 10111111111, 11011111111, 11101111111, 11110111111, 11111011111, 11111101111, 11111110111, 11111111011, 11111111101, 11111111110, 100111111111, 101011111111, 101101111111, 101110111111, 101111011111, 101111101111, 101111110111, 101111111011, 101111111101

Offset

1,1

Links

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

Mathematica

Take[Union[Total/@Subsets[10^Range[0, 15], {10}]], 20] (* Harvey P. Dale, Dec 19 2011 *)

Prog

(Python)
from itertools import islice
def A038452_gen(): # generator of terms
    yield int(bin(n:=1023)[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:])
A038452_list = list(islice(A038452_gen(), 20)) # Chai Wah Wu, Mar 10 2025

Crossrefs

Cf. A011557.

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

Sequence in context: A104924 A272029 A095425 * A261510 A034650 A035525

Adjacent sequences: A038449 A038450 A038451 * A038453 A038454 A038455

Keyword

nonn,easy,changed

Author

Olivier Gérard

Extensions

Offset changed to 1 by Ivan Neretin, Feb 28 2016

Status

approved