OFFSET
0,3
COMMENTS
For n>1: a(n) = 2, if n is power of 2; a(n) =- 1, if n odd; a(n) = 1 otherwise.
The absolute values of a(n) for n>=2 equal the q(n) sequence of the Eta triangle A160464. - Johannes W. Meijer, May 24 2009
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..65536
FORMULA
MATHEMATICA
Join[{1, 0}, Table[Which[IntegerQ[Log2[n]], 2, OddQ[n], -1, True, 1], {n, 2, 90}]] (* Harvey P. Dale, Jan 17 2023 *)
PROG
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Ralf Stephan, Apr 06 2003
EXTENSIONS
Erroneous formula removed by Antti Karttunen, Sep 14 2017
STATUS
approved