OFFSET
0,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
G. E. Andrews, Three aspects of partitions, Séminaire Lotharingien de Combinatoire, B25f (1990), 1 p.
L. Euler, (E326) Observationes analyticae, also reprinted in: Opera Omnia. Teubner, Leipzig, 1911, Series (1), Vol. 15, p. 54.
EXAMPLE
a(6) = F_5*(F_5+1) + A002426(7) = 30 + 393 = 423.
MATHEMATICA
b[n_] := If[n < 0, 0, 3^n Hypergeometric2F1[1/2, -n, 1, 4/3]]; Table[b[n + 1] + Fibonacci[n - 1]*(1 + Fibonacci[n - 1]), {n, 0, 50}] (* G. C. Greubel, Feb 27 2017 *)
PROG
(Magma) P<x>:=PolynomialRing(Integers()); [Max(Coefficients((1+x+x^2)^(n+1)))+(Fibonacci(n-1)*(Fibonacci(n-1)+1)): n in [0..30]]; // Vincenzo Librandi, Dec 24 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 09 2001
STATUS
approved