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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A244310 a(n) = L(n)^3 - L(n)^2, where L(n) is the n-th Lucas number (A000032). 2
4, 0, 18, 48, 294, 1210, 5508, 23548, 101614, 433200, 1845738, 7840998, 33282564, 141149320, 598366458, 2535856048, 10745092894, 45524786370, 192866785668, 817050731748, 3461224027254, 14662350247600, 62111682111618, 263111844646798, 1114566304573444 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,1
LINKS
FORMULA
G.f.: 2*(x^6-8*x^5+17*x^4+23*x^3+5*x^2-10*x+2) / ((x+1)*(x^2-3*x+1)*(x^2-x-1)*(x^2+4*x-1)).
a(n) = A045991(A000032(n)). - Michel Marcus, Jun 25 2014
EXAMPLE
a(3) is 48 because L(3)^3 - L(3)^2 = 4^3 - 4^2 = 48.
MATHEMATICA
CoefficientList[Series[2 (x^6 - 8 x^5 + 17 x^4 + 23 x^3 + 5 x^2 - 10 x + 2)/((x + 1) (x^2 - 3 x + 1) (x^2 - x - 1) (x^2 + 4 x - 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Jun 26 2014 *)
Table[LucasL[n]^3 - LucasL[n]^2, {n, 0, 50}] (* G. C. Greubel, Oct 13 2018 *)
PROG
(PARI)
lucas(n) = if(n==0, 2, 2*fibonacci(n-1)+fibonacci(n))
vector(50, n, lucas(n-1)^3-lucas(n-1)^2)
(Magma) [Lucas(n)^3 - Lucas(n)^2: n in [0..30]]; // Vincenzo Librandi, Jun 26 2014
CROSSREFS
Sequence in context: A302771 A167350 A215669 * A334705 A156457 A058348
KEYWORD
nonn,easy
AUTHOR
Colin Barker, Jun 25 2014
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 18 22:56 EDT 2024. Contains 370952 sequences. (Running on oeis4.)