OFFSET
0
LINKS
MATHEMATICA
a[n_] := Boole[2^IntegerExponent[n, 2] != n]; Array[a, 100, 0] (* Amiram Eldar, Sep 05 2021 *)
PROG
(PARI) A347523(n) = if(!n, 1, 0!=bitand(n, n-1)); \\ Antti Karttunen, Dec 13 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Omar E. Pol, Sep 05 2021
STATUS
approved