OFFSET
1,2
LINKS
Rémy Sigrist, C program for A137674.
FORMULA
MATHEMATICA
b[1] = 1; b[n_] := b[n] = Count[Array[s, n - 1], s[n - 1]]; s[n_] := s[n] = DigitCount[b[n], 2, 1]; Select[Range[10000], b[#] == 1 &] (* Amiram Eldar, Jul 27 2023 *)
PROG
(C) See Links section.
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Feb 05 2008
EXTENSIONS
More terms from Rémy Sigrist, Jun 28 2019
STATUS
approved