login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A213786 a(n)=Sum(b(i)*b(j), 1<=i<j<=n), where b(k) = A020985(k). 2
0, 0, 1, -1, 0, 2, -1, 1, 4, 8, 13, 7, 2, -2, 1, -3, 0, 4, 9, 3, 8, 14, 7, 13, 6, 0, -5, -1, 4, 10, 3, 9, 16, 24, 33, 23, 32, 42, 31, 41, 52, 64, 77, 63, 50, 38, 49, 37, 26, 16, 7, 15, 6, -2, 5, -3, 4, 12, 21, 11, 2, -6, 1, -7, 0, 8, 17, 7, 16, 26, 15, 25, 36 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,6

COMMENTS

Suggested by A190173.

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..10000

MAPLE

b:= proc(n) option remember; local r;

      `if`(n=0, 1, `if`(irem(n, 2, 'r')=0, b(r), b(r)*(-1)^r))

    end:

s:= proc(j) option remember; `if`(j<2, 0, s(j-1)+b(j-1)) end:

a:= proc(n) option remember; `if`(n<2, 0, a(n-1)+b(n)*s(n)) end:

seq (a(n), n=0..100);  # Alois P. Heinz, Jun 23 2012

MATHEMATICA

b[0] = 1; b[1] = 1; b[n_?EvenQ] := b[n] = b[n/2]; b[n_?OddQ] := b[n] = (-1)^((n-1)/2)*b[(n-1)/2]; a[n_] := Sum[b[i]*b[j], {i, 1, n-1}, {j, i+1, n}]; Table[a[n], {n, 0, 72}] (* Jean-Fran├žois Alcover, Nov 27 2014 *)

CROSSREFS

Cf. A020985, A190173.

Sequence in context: A096540 A277081 A111569 * A055130 A051292 A094424

Adjacent sequences:  A213783 A213784 A213785 * A213787 A213788 A213789

KEYWORD

sign

AUTHOR

N. J. A. Sloane, Jun 20 2012

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 19 20:42 EST 2019. Contains 329323 sequences. (Running on oeis4.)