OFFSET
1,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
Alistair Bird, Jozef Schreier, Schreier sets and the Fibonacci sequence, Out Of The Norm blog, May 13 2012.
MATHEMATICA
Differences[Join[{1}, Select[Range[2, 1000, 2], DigitCount[#, 2, 1] <= IntegerExponent[#, 2] + 1 &]]] (* Paolo Xausa, May 31 2024 *)
PROG
(PARI) isok(n) = hammingweight(n) <= (valuation(n, 2) + 1);
my(v=select(isok, [1..500])); vector(#v-1, k, v[k+1]-v[k])
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, May 31 2024
STATUS
approved