OFFSET
1
LINKS
MATHEMATICA
A373990[n_] := Boole[DigitCount[n, 2, 1] <= IntegerExponent[n, 2] + 1];
Array[A373990, 100] (* Paolo Xausa, Jul 01 2024 *)
PROG
(PARI) A373990(n) = (hammingweight(n) <= (1+valuation(n, 2)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 30 2024
STATUS
approved