A127252 Sequence composed of 1 and -1 with the -1's occurring at odious indexed positions given by A091855.
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, -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
Programs
-
Mathematica
a[n_] := If[EvenQ[IntegerExponent[n, 2]] && OddQ[DigitCount[n, 2, 1]], -1, 1]; Array[a, 100, 0] (* Amiram Eldar, Aug 04 2023 *)
Extensions
More terms from Amiram Eldar, Aug 04 2023