A038451 Sums of 9 distinct powers of 10.

111111111, 1011111111, 1101111111, 1110111111, 1111011111, 1111101111, 1111110111, 1111111011, 1111111101, 1111111110, 10011111111, 10101111111, 10110111111, 10111011111, 10111101111, 10111110111, 10111111011

Offset

1,1

Links

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

Mathematica

Sort[Plus @@@ Subsets[10^Range[0, 10], {9}]] (* Amiram Eldar, Jul 12 2022 *)

Prog

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

Crossrefs

Cf. A011557.

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

Sequence in context: A180513 A202174 A172525 * A202082 A262499 A068538

Adjacent sequences: A038448 A038449 A038450 * A038452 A038453 A038454

Keyword

nonn,easy,changed

Author

Olivier Gérard

Extensions

Offset corrected by Amiram Eldar, Jul 12 2022

Status

approved