login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A097039 a(n) = Sum_{i=0..n} i*L(i), where L = A000032. 0
0, 1, 7, 19, 47, 102, 210, 413, 789, 1473, 2703, 4892, 8756, 15529, 27331, 47791, 83103, 143810, 247814, 425445, 727985, 1241981, 2113247, 3587064, 6075432, 10269457, 17326975, 29185483, 49083599, 82429278, 138244218, 231565037 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..31.

FORMULA

O.g.f.: x*(-1 - 4*x + x^2)/((-1 + x)*(-1 + x + x^2)^2).

a(n) = n*L(n+2) - L(n+3) + 4.

MATHEMATICA

l[n_] := l[n] = l[n - 1] + l[n - 2]; l[0] = 2; l[1] = 1 Table[Sum[k l[k], {k, 0, n}], {n, 0, 10}]

With[{nn=40}, Accumulate[Times@@@Thread[{LucasL[Range[0, nn]], Range[ 0, nn]}]]] (* Harvey P. Dale, Aug 15 2015 *)

CROSSREFS

Sequence in context: A139865 A146403 A000491 * A067651 A090025 A003232

Adjacent sequences:  A097036 A097037 A097038 * A097040 A097041 A097042

KEYWORD

nonn,easy

AUTHOR

Mario Catalani (mario.catalani(AT)unito.it), Jul 20 2004

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 January 19 21:47 EST 2020. Contains 331066 sequences. (Running on oeis4.)