OFFSET
1,1
COMMENTS
This sequence contains only 1's and 2's.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
Differences[Select[Range[200], DigitCount[#, 2, 1] > IntegerExponent[#, 2] + 1 &]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Xausa, Jun 07 2024
STATUS
approved