login
A373303
First differences of A371176.
2
1, 2, 2, 2, 2, 2, 4, 2, 2, 4, 4, 4, 2, 2, 4, 4, 4, 4, 4, 8, 2, 2, 4, 4, 4, 4, 4, 8, 4, 4, 8, 8, 8, 2, 2, 4, 4, 4, 4, 4, 8, 4, 4, 8, 8, 8, 4, 4, 8, 8, 8, 8, 8, 16, 2, 2, 4, 4, 4, 4, 4, 8, 4, 4, 8, 8, 8, 4, 4, 8, 8, 8, 8, 8, 16, 4, 4, 8, 8, 8, 8, 8, 16, 8, 8, 16, 16
OFFSET
1,2
LINKS
Alistair Bird, Jozef Schreier, Schreier sets and the Fibonacci sequence, Out Of The Norm blog, May 13 2012.
FORMULA
a(n) = A371176(n+1) - A371176(n).
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
Cf. A371176.
Sequence in context: A104361 A211449 A086876 * A376938 A066691 A260123
KEYWORD
nonn
AUTHOR
Michel Marcus, May 31 2024
STATUS
approved