|
|
A261012
|
|
Sign(n) (with offset -1): a(n) = 1 if n>0, = -1 if n<0, = 0 if n = 0.
|
|
2
|
|
|
-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, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
-1,1
|
|
COMMENTS
|
|
|
REFERENCES
|
T. M. Macrobert, Functions of a Complex Variable, 4th ed., Macmillan and Co, London, 1958, p. 90
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{k>=0} 2^k*x^(2^k)/(1+x^(2^k)). - Michael Somos, Sep 11 2005
a(0) = 0, a(n) = n/|n| or |n|/n for n != 0. - Jon Perry, Sep 20 2012
|
|
MAPLE
|
|
|
MATHEMATICA
|
Sign[Range[-1, 120]] (* or *) PadRight[{-1, 0}, 120, {1}] (* Harvey P. Dale, May 12 2019 *)
|
|
PROG
|
(PARI) a(n)=sign(n)
(Haskell)
a261012 = signum
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,sign,mult
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Incorrect g.f. and e.g.f. removed by Joerg Arndt, Oct 22 2013
The initial a(-1)=-1 should never have been added.
|
|
STATUS
|
approved
|
|
|
|