login
A347523
Characteristic function of nonpowers of 2.
3
1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
OFFSET
0
FORMULA
a(n) = 1 - A209229(n).
a(A000079(n)) = 0; a(A057716(n)) = 1.
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
1 together with A043545. Cf. A267442.
Sequence in context: A322217 A104105 A295889 * A143221 A325899 A126999
KEYWORD
nonn,easy
AUTHOR
Omar E. Pol, Sep 05 2021
STATUS
approved