OFFSET
1,2
FORMULA
MAPLE
b:= proc(n) option remember;
`if`(n=1, 2, convert(b(n-1), binary))
end:
a:= proc(n) option remember; add(i, i=Bits[Split](b(n))) end:
seq(a(n), n=1..12); # Alois P. Heinz, Jan 07 2026
PROG
(Python)
from itertools import islice
from gmpy2 import digits, mpz, popcount
def agen(): # generator of terms
an = 2
while True:
yield popcount(an)
an = mpz(digits(an, 2))
print(list(islice(agen(), 16))) # Michael S. Branicky, Jan 07 2026
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Lucas Griego, Jan 07 2026
EXTENSIONS
a(13)-a(15) from Alois P. Heinz, Jan 07 2026
a(16)-a(22) from Michael S. Branicky, Jan 08 2026
STATUS
approved
