The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A259024 a(4*n) = a(n). a(4*n + 2) = 0. a(4*n + 1) = - A259022(n+2). a(4*n + 3) = - A259022(n-2). 5
 1, 0, -1, 1, -1, 0, 1, 0, 0, 0, -1, -1, 1, 0, 1, 1, -1, 0, 1, -1, -1, 0, -1, 0, 1, 0, 0, 1, -1, 0, 1, 0, 1, 0, -1, 0, 1, 0, -1, 0, -1, 0, 1, -1, 0, 0, -1, -1, 1, 0, 1, 1, -1, 0, 1, 0, -1, 0, -1, 1, 1, 0, 0, 1, -1, 0, 1, -1, 1, 0, -1, 0, 1, 0, -1, 1, -1, 0, 1 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 FORMULA a(n) is multiplicative with a(2^e) = (1 + (-1)^e) / 2, a(3) = -1, a(3^e) = 0 if e>1, a(p^e) = 1 if p == 1 (mod 6), a(p^e) = (-1)^e if p == 5 (mod 6). A229143(n) = Sum_{d|n} a(n/d) * [ 0, 1, 0, -2, 0, 1][mod(d, 6) + 1]. a(n) = -a(-n) for all n in Z. a(2*n + 1) = A259022(n). a(3*n) = - A084091(n). a(3*n + 1) = A098725(n+1). a(9*n) = 0. a(9*n + 3) = - A098725(n). EXAMPLE G.f. = x - x^3 + x^4 - x^5 + x^7 - x^11 - x^12 + x^13 + x^15 + x^16 + ... PROG (PARI) {a(n) = my(A, p, e); if( !n, 0, A = factor(abs(n)); sign(n) * prod(k=1, matsize(A)[1], [p, e] = A[k, ]; if( p==2, !(e%2), p==3, -(e==1), kronecker( -12, p)^e)))}; (Haskell) import Data.List (transpose) a259024 n = a259024_list !! (n-1) a259024_list = concat                (transpose [drop 2 cs, [0, 0 ..], drop 7 cs, a259024_list])                where cs = map negate a259022_list -- Reinhard Zumkeller, Jun 17 2015 CROSSREFS Cf. A084091, A098725, A229143, A259022. Cf. A259029 (partial sums). Sequence in context: A322980 A267053 A257477 * A323045 A104106 A349167 Adjacent sequences:  A259021 A259022 A259023 * A259025 A259026 A259027 KEYWORD sign,mult AUTHOR Michael Somos, Jun 16 2015 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 7 23:50 EDT 2022. Contains 355995 sequences. (Running on oeis4.)