OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Sort[Plus @@@ Subsets[10^Range[0, 7], {6}]] (* Amiram Eldar, Jul 12 2022 *)
PROG
(Python)
from itertools import islice
def A038448_gen(): # generator of terms
yield int(bin(n:=63)[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:])
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
EXTENSIONS
Offset corrected by Amiram Eldar, Jul 12 2022
STATUS
approved