login
A127254
(0,1) sequence whose zero positions are indexed by twice the odious numbers given by A091855.
2
1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1
OFFSET
0,1
COMMENTS
0's appear at positions indexed by 2*A091855(n).
MATHEMATICA
a[n_] := If[EvenQ[n] && EvenQ[IntegerExponent[n/2, 2]] && OddQ[DigitCount[n/2, 2, 1]], 0, 1]; Array[a, 100, 0] (* Amiram Eldar, Aug 06 2023 *)
PROG
(PARI) A127254(n) = if(n%2, 1, !(hammingweight(n)%2 && !(valuation(n/2, 2)%2))); \\ After PARI-code in A091855. - Antti Karttunen, Nov 02 2018
CROSSREFS
Row sums of A127253.
Sequence in context: A070178 A364250 A289748 * A188395 A266678 A267936
KEYWORD
nonn,base
AUTHOR
Paul Barry, Jan 10 2007
EXTENSIONS
More terms from Antti Karttunen, Nov 02 2018
STATUS
approved