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

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, A038453, A038454.

Programs

Mathematica

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

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

Extensions

Offset changed to 1 by Ivan Neretin, Feb 28 2016