A080097 -id:A080097 - cp's OEIS frontend

A007598 Squared Fibonacci numbers: a(n) = F(n)^2 where F = A000045.

0, 1, 1, 4, 9, 25, 64, 169, 441, 1156, 3025, 7921, 20736, 54289, 142129, 372100, 974169, 2550409, 6677056, 17480761, 45765225, 119814916, 313679521, 821223649, 2149991424, 5628750625, 14736260449, 38580030724, 101003831721, 264431464441, 692290561600

Offset: 0

N. J. A. Sloane, Robert G. Wilson v

a(n)*(-1)^(n+1) = (2*(1-T(n,-3/2))/5), n>=0, with Chebyshev's polynomials T(n,x) of the first kind, is the r=-1 member of the r-family of sequences S_r(n) defined in A092184 where more information can be found. - Wolfdieter Lang, Oct 18 2004
From Giorgio Balzarotti, Mar 11 2009: (Start)
Determinant of power series with alternate signs of gamma matrix with determinant 1!.
a(n) = Determinant(A - A^2 + A^3 - A^4 + A^5 - ... - (-1)^n*A^n) where A is the submatrix A(1..2,1..2) of the matrix with factorial determinant.
A = [[1,1,1,1,1,1,...], [1,2,1,2,1,2,...], [1,2,3,1,2,3,...], [1,2,3,4,1,2,...], [1,2,3,4,5,1,...], [1,2,3,4,5,6,...], ...]; note: Determinant A(1..n,1..n) = (n-1)!.
a(n) is even with respect to signs of power of A.
See A158039...A158050 for sequence with matrix 2!, 3!, ... (End)
Equals the INVERT transform of (1, 3, 2, 2, 2, ...). Example: a(7) = 169 = (1, 1, 4, 9, 25, 64) dot (2, 2, 2, 2, 3, 1) = (2 + 2 + 8 + 18 + 75 + 64). - Gary W. Adamson, Apr 27 2009
This is a divisibility sequence.
a(n+1)*(-1)^n, n>=0, is the sequence of the alternating row sums of the Riordan triangle A158454. - Wolfdieter Lang, Dec 18 2010
a(n+1) is the number of tilings of a 2 X 2n rectangle with n tetrominoes of any shape, cf. A230031. - Alois P. Heinz, Nov 29 2013
This is the case P1 = 1, P2 = -6, Q = 1 of the 3 parameter family of 4th-order linear divisibility sequences found by Williams and Guy. - Peter Bala, Mar 31 2014
Differences between successive golden rectangle numbers A001654. - Jonathan Sondow, Nov 05 2015
a(n+1) is the number of 2 X n matrices that can be obtained from a 2 X n matrix by moving each element to an adjacent position, horizontally or vertically. This is because F(n+1) is the number of domino tilings of that matrix, therefore with a checkerboard coloring and two domino tilings we can move the black element of each domino of the first tiling to the white element of the same domino and similarly move the white element of each domino of the second tiling to the black element of the same domino. - Fabio Visonà, May 04 2022
In general, squaring the terms of a second-order linear recurrence with signature (c,d) will result in a third-order linear recurrence with signature (c^2+d,(c^2+d)*d,-d^3). - Gary Detlefs, Jan 05 2023

			G.f. = x + x^2 + 4*x^3 + 9*x^4 + 25*x^5 + 64*x^6 + 169*x^7 + 441*x^8 + ...

Arthur T. Benjamin and Jennifer J. Quinn, Proofs that really count: the art of combinatorial proof, M.A.A. 2003, id. 8.
Ross Honsberger, Mathematical Gems III, M.A.A., 1985, p. 130.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
Richard P. Stanley, Enumerative Combinatorics I, Example 4.7.14, p. 251.

Indranil Ghosh, Table of n, a(n) for n = 0..2389 (terms 0..200 from T. D. Noe)
Mohammad K. Azarian, Fibonacci Identities as Binomial Sums, International Journal of Contemporary Mathematical Sciences, Vol. 7, No. 38, 2012, pp. 1871-1876.
Mohammad K. Azarian, Fibonacci Identities as Binomial Sums II, International Journal of Contemporary Mathematical Sciences, Vol. 7, No. 42, 2012, pp. 2053-2059.
R. C. Alperin, A family of nonlinear recurrences and their linear solutions, Fib. Q., 57:4 (2019), 318-321.
Paul S. Bruckman, Problem B-1023: And a cubic as a sum of two squares, Fibonacci Quarterly, Vol. 45, Number 2; May 2007; p. 186.
Andrej Dujella, A bijective proof of Riordan's theorem on powers of Fibonacci numbers, Discrete Math. 199 (1999), no. 1-3, 217--220. MR1675924 (99k:05016).
Sergio Falcon, Some series of reciprocal k-Fibonacci numbers, Asian Journal of Mathematics and Computer Research, Vol. 11, No. 3 (2016), pp. 184-191; ResearchGate link.
Dominique Foata and Guo-Niu Han, Nombres de Fibonacci et polynômes orthogonaux, in: Marcello Morelli and Marco Tangheroni (eds.), Leonardo Fibonacci : il tempo, le opere, l'ereditá scientifica, Pisa, 23-25 Marzo 1994, Pisa, Pacini Editore, 1994, pp. 179-200.
Svenja Huntemann and Neil A. McKay, Counting Domineering Positions, arXiv:1909.12419 [math.CO], 2019.
Jong Hyun Kim, Hadamard products and tilings, JIS 12 (2009) 09.7.4.
Toufik Mansour, A note on sum of k-th power of Horadam's sequence, arXiv:math/0302015 [math.CO], 2003.
Toufik Mansour, Squaring the terms of an l-th order linear recurrence, arXiv:math/0303138 [math.CO], 2003.
Hilary I. Okagbue, Muminu O. Adamu, Sheila A. Bishop, and Abiodun A. Opanuga, Digit and Iterative Digit Sum of Fibonacci numbers, their identities and powers, International Journal of Applied Engineering Research ISSN 0973-4562 Volume 11, Number 6 (2016) pp 4623-4627.
Pantelimon Stanica, Generating functions, weighted and non-weighted sums of powers of second-order recurrence sequences, arXiv:math/0010149 [math.CO], 2000.
H. C. Williams and R. K. Guy, Some fourth-order linear divisibility sequences, Intl. J. Number Theory 7 (5) (2011) 1255-1277.
H. C. Williams and R. K. Guy, Some Monoapparitic Fourth Order Linear Divisibility Sequences Integers, Volume 12A (2012) The John Selfridge Memorial Volume.
Index entries for linear recurrences with constant coefficients, signature (2,2,-1).
Index entries for two-way infinite sequences.
Index to divisibility sequences.

Cf. A000032, A000045, A001254, A001622, A001654, A047946, A056570, A059260, A061646, A065885, A079291, A080097, A105393.
Bisection of A006498 and A074677. First differences of A001654.
Second row of array A103323.
Half of A175395.

List([0..30], n -> Fibonacci(n)^2); # G. C. Greubel, Dec 10 2018

a007598 = (^ 2) . a000045  -- Reinhard Zumkeller, Sep 01 2013

[Fibonacci(n)^2: n in [0..30]]; // Vincenzo Librandi, Apr 14 2011

with(combinat): seq(fibonacci(n)^2, n=0..27); # Zerinvary Lajos, Sep 21 2007

f[n_] := Fibonacci[n]^2; Array[f, 4!, 0] (* Vladimir Joseph Stephan Orlovsky, Oct 25 2009 *)
LinearRecurrence[{2,2,-1},{0,1,1},41] (* Harvey P. Dale, May 18 2011 *)

PARI
```
{a(n) = fibonacci(n)^2};
```

concat(0, Vec(x*(1-x)/((1+x)*(1-3*x+x^2)) + O(x^30))) \\ Altug Alkan, Nov 06 2015

from sympy import fibonacci
def A007598(n): return fibonacci(n)**2 # Chai Wah Wu, Apr 14 2025

[(fibonacci(n))^2 for n in range(0, 28)]# Zerinvary Lajos, May 15 2009

[fibonacci(n)^2 for n in range(30)] # G. C. Greubel, Dec 10 2018

G.f.: x*(1-x)/((1+x)*(1-3*x+x^2)).
a(n) = 2*a(n-1) + 2*a(n-2) - a(n-3), n > 2. a(0)=0, a(1)=1, a(2)=1.
a(-n) = a(n) for all n in Z.
a(n) = A080097(n-2) + 1.
L.g.f.: 1/5*log((1+3*x+x^2)/(1-6*x+x^2)) = Sum_{n>=0} a(n)/n*x^n; special case of l.g.f. given in A079291. - Joerg Arndt, Apr 13 2011
a(0) = 0, a(1) = 1; a(n) = a(n-1) + Sum(a(n-i)) + k, 0 <= i < n where k = 1 when n is odd, or k = -1 when n is even. E.g., a(2) = 1 = 1 + (1 + 1 + 0) - 1, a(3) = 4 = 1 + (1 + 1 + 0) + 1, a(4) = 9 = 4 + (4 + 1 + 1 + 0) - 1, a(5) = 25 = 9 + (9 + 4 + 1 + 1 + 0) + 1. - Sadrul Habib Chowdhury (adil040(AT)yahoo.com), Mar 02 2004
a(n) = (2*Fibonacci(2*n+1) - Fibonacci(2*n) - 2*(-1)^n)/5. - Ralf Stephan, May 14 2004
a(n) = F(n-1)*F(n+1) - (-1)^n = A059929(n-1) - A033999(n).
Sum_{j=0..2*n} binomial(2*n,j)*a(j) = 5^(n-1)*A005248(n+1) for n >= 1 [P. Stanica]. Sum_{j=0..2*n+1} binomial(2*n+1,j)*a(j) = 5^n*A001519(n+1) [P. Stanica]. - R. J. Mathar, Oct 16 2006
a(n) = (A005248(n) - 2*(-1)^n)/5. - R. J. Mathar, Sep 12 2010
a(n) = (-1)^k*(Fibonacci(n+k)^2-Fibonacci(k)*Fibonacci(2*n+k)), for any k. - Gary Detlefs, Dec 13 2010
a(n) = 3*a(n-1) - a(n-2) + 2*(-1)^(n+1), n > 1. - Gary Detlefs, Dec 20 2010
a(n) = Fibonacci(2*n-2) + a(n-2). - Gary Detlefs, Dec 20 2010
a(n) = (Fibonacci(3*n) - 3*(-1)^n*Fibonacci(n))/(5*Fibonacci(n)), n > 0. - Gary Detlefs, Dec 20 2010
a(n) = (Fibonacci(n)*Fibonacci(n+4) - 3*Fibonacci(n)*Fibonacci(n+1))/2. - Gary Detlefs, Jan 17 2011
a(n) = (((3+sqrt(5))/2)^n + ((3-sqrt(5))/2)^n - 2*(-1)^n)/5; without leading zero we would have a(n) = ((3+sqrt(5))*((3+sqrt(5))/2)^n + (3-sqrt(5))*((3-sqrt(5))/2)^n + 4*(-1)^n)/10. - Tim Monahan, Jul 17 2011
E.g.f.: (exp((phi+1)*x) + exp((2-phi)*x) - 2*exp(-x))/5, with the golden section phi:=(1+sqrt(5))/2. From the Binet-de Moivre formula for F(n). - Wolfdieter Lang, Jan 13 2012
Starting with "1" = triangle A059260 * the Fibonacci sequence as a vector. - Gary W. Adamson, Mar 06 2012
a(0) = 0, a(1) = 1; a(n+1) = (a(n)^(1/2) + a(n-1)^(1/2))^2. - Thomas Ordowski, Jan 06 2013
a(n) + a(n-1) = A001519(n), n > 0. - R. J. Mathar, Mar 19 2014
From Peter Bala, Mar 31 2014: (Start)
a(n) = ( T(n,alpha) - T(n,beta) )/(alpha - beta), where alpha = 3/2 and beta = -1 and T(n,x) denotes the Chebyshev polynomial of the first kind.
a(n) = the bottom left entry of the 2 X 2 matrix T(n, M), where M is the 2 X 2 matrix [0, 3/2; 1, 1/2].
a(n) = U(n-1,i/2)*U(n-1,-i/2), where U(n,x) denotes the Chebyshev polynomial of the second kind.
See the remarks in A100047 for the general connection between Chebyshev polynomials and 4th-order linear divisibility sequences. (End)
a(n) = (F(n+2)*F(n+3) - L(n)*L(n+1))/3 for F = A000045 and L = A000032. - J. M. Bergot, Jun 02 2014
0 = a(n)*(+a(n) - 2*a(n+1) - 2*a(n+2)) + a(n+1)*(+a(n+1) - 2*a(n+2)) + a(n+2)*(+a(n+2)) for all n in Z. - Michael Somos, Jun 03 2014
(F(n)*b(n+2))^2 + (F(n+1)*b(n-1))^2 = F(2*n+1)^3 = A001519(n+1)^3, with b(n) = a(n) + 2*(-1)^n and F(n) = A000045(n) (see Bruckman link). - Michel Marcus, Jan 24 2015
a(n) = 1/4*( a(n-2) - a(n-1) - a(n+1) + a(n+2) ). The same recurrence holds for A001254. - Peter Bala, Aug 18 2015
a(n) = F(n)*F(n+1) - F(n-1)*F(n). - Jonathan Sondow, Nov 05 2015
For n>2, a(n) = F(n-2)*(3*F(n-1) + F(n-3)) + F(2*n-5). Also, for n>2 a(n)=2*F(n-3)*F(n) + F(2*n-3) -(2)*(-1)^n. - J. M. Bergot, Nov 05 2015
a(n) = (F(n+2)^2 + L(n+1)^2) - 2*F(n+2)*L(n+1). - J. M. Bergot, Nov 08 2015
a(n) = F(n+3)^2 - 4*F(n+1)*F(n+2). - J. M. Bergot, Mar 17 2016
a(n) = (F(n-2)*F(n+2) + F(n-1)*F(n+1))/2. - J. M. Bergot, May 25 2017
4*a(n) = L(n+1)*L(n-1) - F(n+2)*F(n-2), where L = A000032. - Bruno Berselli, Sep 27 2017
a(n) = F(n+k)*F(n-k) + (-1)^(n+k)*a(k), for every integer k >= 0. - Federico Provvedi, Dec 10 2018
From Peter Bala, Nov 19 2019: (Start)
Sum_{n >= 3} 1/(a(n) - 1/a(n)) = 4/9.
Sum_{n >= 3} (-1)^n/(a(n) - 1/a(n)) =  (10 - 3*sqrt(5))/18.
Conjecture: Sum_{n >= 1, n != 2*k+1} 1/(a(n) + (-1)^n*a(2*k+1)) = 1/a(4*k+2) for k = 0,1,2,.... (End)
Sum_{n>=1} 1/a(n) = A105393. - Amiram Eldar, Oct 22 2020
Product_{n>=2} (1 + (-1)^n/a(n)) = phi (A001622) (Falcon, 2016, p. 189, eq. (3.1)). - Amiram Eldar, Dec 03 2024

A000119 Number of representations of n as a sum of distinct Fibonacci numbers.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 2, 1, 3, 2, 2, 3, 1, 3, 3, 2, 4, 2, 3, 3, 1, 4, 3, 3, 5, 2, 4, 4, 2, 5, 3, 3, 4, 1, 4, 4, 3, 6, 3, 5, 5, 2, 6, 4, 4, 6, 2, 5, 5, 3, 6, 3, 4, 4, 1, 5, 4, 4, 7, 3, 6, 6, 3, 8, 5, 5, 7, 2, 6, 6, 4, 8, 4, 6, 6, 2, 7, 5, 5, 8, 3, 6, 6, 3, 7, 4, 4, 5, 1, 5, 5, 4, 8, 4, 7, 7, 3, 9, 6, 6, 9, 3, 8, 8, 5

Offset: 0

N. J. A. Sloane

Number of partitions into distinct Fibonacci parts (1 counted as single Fibonacci number).
Inverse Euler transform of sequence has generating function Sum_{n>1} (x^F(n) - x^(2*F(n))) where F() are the Fibonacci numbers.
a(n) = 1 if and only if n+1 is a Fibonacci number. The length of such a quasi-period (from Fib(i)-1 to Fib(i+1)-1, inclusive) is a Fibonacci number + 1. The maximum value of a(n) within each subsequent quasi-period increases by a Fibonacci number. For example, from n = 143 to n = 232, the maximum is 13. From 232 to 376, the maximum is 16, an increase of 3. From 376 to 609, 21, an increase of 5. From 609 to 986, 26, increasing by 5 again. Each two subsequent maxima seem to increase by the same increment, the next Fibonacci number. - Kerry Mitchell, Nov 14 2009
The maxima of the quasi-periods are in A096748. - Max Barrentine, Sep 13 2015
Stockmeyer proves that a(n) <= sqrt(n+1) with equality iff n = Fibonacci(m)^2 - 1 for some m >= 2 (cf. A080097). - Michel Marcus, Mar 02 2016

M. Bicknell-Johnson, pp. 53-60 in "Applications of Fibonacci Numbers", volume 8, ed: F. T. Howard, Kluwer (1999); see Theorem 3.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe, Table of n, a(n) for n = 0..6765
Federico Ardila, The coefficients of a Fibonacci power series, Fib. Quart. 42 (3) (2004), 202-204.
Erik Bates, Blan Morrison, Mason Rogers, Arianna Serafini, and Anav Sood, A new combinatorial interpretation of partial sums of m-step Fibonacci numbers, arXiv:2503.11055 [math.CO], 2025. See p. 2.
Jean Berstel, Home Page
Jean Berstel, An Exercise on Fibonacci Representations, RAIRO/Informatique Theorique, Vol. 35, No 6, 2001, pp. 491-498, in the issue dedicated to Aldo De Luca on the occasion of his 60th anniversary.
Pierre Bonardo and Anna E. Frid, Number of valid decompositions of Fibonacci prefixes, arXiv:1806.09534 [math.CO], 2018.
Alfred Brousseau, Fibonacci and Related Number Theoretic Tables, Fibonacci Association, San Jose, CA, 1972. See p. 54.
Leonard Carlitz, Fibonacci Representations, Fibonacci Quarterly, volume 6, number 4, October 1968, pages 193-220, a(n) = R(N).
Sam Chow and Tom Slattery, On Fibonacci partitions, arXiv:2009.08222 [math.NT], 2020.
Sam Chow and Tom Slattery, On Fibonacci partitions, Journal of Number Theory, Volume 225, August 2021, Pages 310-326.
Sam Chow and Owen Jones, On the variance of the Fibonacci partition function, arXiv:2308.15415 [math.NT], 2023.
Michel Dekking and Ad van Loon, Counting base phi representations, arXiv:2304.11387 [math.NT], 2023.
Tom Kempton, The Dynamics of the Fibonacci Partition Function, arXiv:2311.06006 [math.NT], 2023.
David A. Klarner, Representations of N as a sum of distinct elements from special sequences, part 1, part 2, Fib. Quart., 4 (1966), 289-306 and 322.
Ron Knott, Sumthing about Fibonacci Numbers
Neville Robbins, Fibonacci partitions, Fib. Quart. 34 (4) (1996), 306-313.
Jeffrey Shallit, Number theory and formal languages, in D. A. Hejhal, J. Friedman, M. C. Gutzwiller and A. M. Odlyzko, eds., Emerging Applications of Number Theory, IMA Volumes in Mathematics and Its Applications, V. 109, Springer-Verlag, 1999, pp. 547-570. (Eq. 9.2.)
Jeffrey Shallit, Robbins and Ardila meet Berstel, Arxiv preprint arXiv:2007.14930 [math.CO], 2020.
Paul K. Stockmeyer, A Smooth Tight Upper Bound for the Fibonacci Representation Function R(N), Fibonacci Quarterly, Volume 46/47, Number 2, May 2009.
Scott V. Tezlaf, On ordinal dynamics and the multiplicity of transfinite cardinality, arXiv:1806.00331 [math.NT], 2018. See p. 42.

Cf. A007000, A003107, A000121, A080097, A096748. Least inverse is A013583.

a000119 = p $ drop 2 a000045_list where
   p _      0 = 1
   p (f:fs) m = if m < f then 0 else p fs (m - f) + p fs m
-- Reinhard Zumkeller, Dec 28 2012, Oct 21 2011

with(combinat): p := product((1+x^fibonacci(i)), i=2..25): s := series(p,x,1000): for k from 0 to 250 do printf(`%d,`,coeff(s,x,k)) od: # James Sellers, May 29 2000

CoefficientList[ Normal@Series[ Product[ 1+z^Fibonacci[ k ], {k, 2, 13} ], {z, 0, 233} ], z ]
nmax = 104; s = Union@Table[Fibonacci[n], {n, nmax}];
Table[Length@Select[IntegerPartitions[n, All, s], DeleteDuplicates[#] == # &], {n, 0, nmax}] (* Robert Price, Aug 17 2020 *)

a(n)=local(A,m,f); if(n<0,0,A=1+x*O(x^n); m=2; while((f=fibonacci(m))<=n,A*=1+x^f; m++); polcoeff(A,n))

f(x,y,z)=if(xCharles R Greathouse IV, Dec 14 2015

a(A000045(n)) = A065033(n).
a(n) = (1/n)*Sum_{k=1..n} b(k)*a(n-k), b(k) = Sum_{f} (-1)^(k/f+1)*f, where the last sum is taken over all Fibonacci numbers f dividing k. - Vladeta Jovovic, Aug 28 2002
a(n) = 1, if n <= 2; a(n) = a(Fibonacci(i-2)+k)+a(k) if n>2 and 0<=k2 and Fibonacci(i-3)<=kA000045) <= n and k=n-Fibonacci(i). [Bicknell-Johnson] - Ron Knott, Dec 06 2004
a(n) = f(n,1,1) with f(x,y,z) = if xReinhard Zumkeller, Nov 11 2009
G.f.: Product_{n>=1} 1 + q^F(n+1) = 1 + Sum_{n>=1} ( q^F(n+1) * Product_{k=1..n-1} 1 + q^F(k+1) ). - Joerg Arndt, Oct 20 2012
a(A000071(n)) = 1. - Reinhard Zumkeller, Dec 28 2012

More terms from James Sellers, May 29 2000

A202453 Fibonacci self-fusion matrix, by antidiagonals.

Original entry on oeis.org

1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 5, 5, 6, 5, 5, 8, 8, 9, 9, 8, 8, 13, 13, 15, 15, 15, 13, 13, 21, 21, 24, 24, 24, 24, 21, 21, 34, 34, 39, 39, 40, 39, 39, 34, 34, 55, 55, 63, 63, 64, 64, 63, 63, 55, 55, 89, 89, 102, 102, 104, 104, 104, 102, 102, 89, 89, 144, 144, 165, 165

Offset: 1

Clark Kimberling, Dec 19 2011

The Fibonacci self-fusion matrix, F, is the fusion P**Q, where P and Q are the lower and upper triangular Fibonacci matrices.  See A193722 for the definition of fusion of triangular arrays.
Every term F(n,k) of F is a product of two Fibonacci numbers; indeed,
F(n,k)=F(n)*F(k+1) if k is even;
F(n,k)=F(n+1)*F(k) if k is odd.
antidiagonal sums: (1,2,6,12,...), A054454
diagonal (1,2,6,15,...), A001654
diagonal (1,3,9,24,...), A064831
diagonal (2,5,15,39,..), A059840
diagonal (3,8,24,63,..), A080097
diagonal (5,13,39,102,...), A080143
diagonal (8,21,63,165,...), A080144
principal submatrix sums, A202462
All the principal submatrices are invertible, and the terms in the inverses are in {-3,-2,-1,0,1,2,3}.

			Northwest corner:
1...1....2....3....5....8....13
1...2....3....5....8...13....21
2...3....6....9...15...24....39
3...5....9...15...24...39....63
5...8...15...24...40...64...104

Clark Kimberling, Fusion, Fission, and Factors, Fib. Q., 52 (2014), 195-202.

Cf. A000045, A202451, A202452, A202503 (Fibonacci fission array).

n = 12;
Q = NestList[Most[Prepend[#, 0]] &, #, Length[#] - 1] &[Table[Fibonacci[k], {k, 1, n}]];
P = Transpose[Q]; F = P.Q;
Flatten[Table[P[[i]][[k + 1 - i]], {k, 1, n}, {i, 1, k}]] (* A202452 as a sequence *)
Flatten[Table[Q[[i]][[k + 1 - i]], {k, 1, n}, {i, 1, k}]] (* A202451 as a sequence *)
Flatten[Table[F[[i]][[k + 1 - i]], {k, 1, n}, {i, 1, k}]] (* A202453 as a sequence *)
TableForm[Q]  (* A202451, upper tri. Fibonacci array *)
TableForm[P]  (* A202452, lower tri. Fibonacci array *)
TableForm[F]  (* A202453, Fibonacci fusion array *)
TableForm[FactorInteger[F]]

Matrix product P*Q, where P, Q are the lower and upper triangular Fibonacci matrices, A202451 and A202452.

A206981 Number of n X 2 0..1 arrays avoiding the patterns 0 1 0 or 1 0 1 in any row, column, diagonal or antidiagonal.

Original entry on oeis.org

4, 16, 36, 100, 256, 676, 1764, 4624, 12100, 31684, 82944, 217156, 568516, 1488400, 3896676, 10201636, 26708224, 69923044, 183060900, 479259664, 1254718084, 3284894596, 8599965696, 22515002500, 58945041796, 154320122896, 404015326884

Offset: 1

R. H. Hardin, Feb 14 2012

nonn

			Some solutions for n=4
..1..1....0..0....0..0....0..0....1..1....0..1....1..1....0..1....1..0....0..0
..0..1....0..1....1..0....1..0....1..1....1..1....1..1....1..0....0..1....1..1
..0..0....1..1....1..1....1..0....1..1....1..0....1..1....1..0....0..1....1..1
..1..0....1..1....0..1....1..0....1..1....1..0....0..0....1..0....1..0....0..0

R. H. Hardin, Table of n, a(n) for n = 1..210

Column 2 of A206987.

Cf. A080097.

Empirical: a(n) = 2*a(n-1) + 2*a(n-2) - a(n-3). G.f.: -4*x*(-1-2*x+x^2) / ( (1+x)*(x^2-3*x+1) ).

Empirical: a(n) = (A080097(n)+1)*4. - Martin Ettl, Nov 13 2012

A049997 Numbers of the form Fibonacci(i)*Fibonacci(j).

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 8, 9, 10, 13, 15, 16, 21, 24, 25, 26, 34, 39, 40, 42, 55, 63, 64, 65, 68, 89, 102, 104, 105, 110, 144, 165, 168, 169, 170, 178, 233, 267, 272, 273, 275, 288, 377, 432, 440, 441, 442, 445, 466, 610, 699, 712, 714, 715, 720, 754

Offset: 0

Clark Kimberling

It follows from Atanassov et al. that a(n) << sqrt(phi)^n, which matches the trivial a(n) >> sqrt(phi)^n up to a constant factor. - Charles R Greathouse IV, Feb 06 2013

Conjecture: Fibonacci(m)*Fibonacci(n) with 2 < m < n is a perfect power only for (m,n) = (3,6). This has been verified for 2 < m < n <= 900. - Zhi-Wei Sun, Jan 02 2025

			25 is in the sequence since it is the product of two, not necessarily distinct, Fibonacci numbers, 5 and 5.
26 is in the sequence since it is the product of two Fibonacci numbers, 2 and 13.
27 is not in the sequence because there is no way whatsoever to represent it as the product of exactly two Fibonacci numbers.

Charles R Greathouse IV, Table of n, a(n) for n = 0..10000
K. T. Atanassov, Ron Knott, Kiyota Ozeki, A. G. Shannon, and László Szalay, Inequalities among related pairs of Fibonacci numbers, Fibonacci Quarterly 41:1 (2003), pp. 20-22.
Clark Kimberling, Orderings of products of Fibonacci numbers, Fibonacci Quarterly 42:1 (2004), pp. 28-35.
Zhi-Wei Sun, Perfect powers as products of two Fibonacci or Lucas numbersQuestion 485037 at MathOverflow, December 30, 2024.

Subsequence of A065108; apart from the first term, subsequence of A094563. Complement is A228523.
See A049998 for further information about this sequence. Cf. A080097.
Intersection with A059389 (sums of two Fibonacci numbers) is A226857.
Cf. also A090206, A005478.

Take[ Union@Flatten@Table[ Fibonacci[i]Fibonacci[j], {i, 0, 16}, {j, 0, i}], 61] (* Robert G. Wilson v, Dec 14 2005 *)

list(lim)=my(phi=(1+sqrt(5))/2, v=vector(log(lim*sqrt(5))\log(phi), i, fibonacci(i+1)), u=List([0]),t); for(i=1,#v,for(j=i,#v,t=v[i]*v[j];if(t>lim,break,listput(u,t)))); vecsort(Vec(u),,8) \\ Charles R Greathouse IV, Feb 05 2013

A058038 a(n) = Fibonacci(2n)Fibonacci(2*n+2).

Original entry on oeis.org

0, 3, 24, 168, 1155, 7920, 54288, 372099, 2550408, 17480760, 119814915, 821223648, 5628750624, 38580030723, 264431464440, 1812440220360, 12422650078083, 85146110326224, 583600122205488, 4000054745112195, 27416783093579880, 187917426909946968

Offset: 0

N. J. A. Sloane, Jun 09 2002

Partial sums of A033888, i.e., a(n) = Sum_{k=0..n} Fibonacci(4*k). - Vladeta Jovovic, Jun 09 2002
From Paul Weisenhorn, May 17 2009: (Start)
a(n) is the solution of the 2 equations a(n)+1=A^2 and 5*a(n)+1=B^2
which are equivalent to the Pell equation (10*a(n)+3)^2-5*(A*B)^2=4.
(End)
Numbers a(n) such as a(n)+1 and 5*a(n)+1 are perfect squares. - Sture Sjöstedt, Nov 03 2011

			G.f. = 3*x + 24*x^2 + 168*x^3 + 1155*x^4 + 7920*x^5 + 54288*x^6 + ... - _Michael Somos_, Jan 23 2025

A. T. Benjamin and J. J. Quinn, Proofs that really count: the art of combinatorial proof, M.A.A. 2003, id. 29.
H. J. H. Tuenter, Fibonacci summation identities arising from Catalan's identity, Fib. Q., 60:4 (2022), 312-319.

Harvey P. Dale, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (8,-8,1).

Cf. A033888, A004187, A094874.
Bisection of A059929, A064831 and A080097.
Related to sum of fibonacci(kn) over n; cf. A000071, A099919, A027941, A138134, A053606.

[Fibonacci(2*n)*Fibonacci(2*n+2): n in [0..30]]; // Vincenzo Librandi, Apr 18 2011

fs4:=n->sum(fibonacci(4*k),k=0..n):seq(fs4(n),n=0..21); # Gary Detlefs, Dec 07 2010

Table[Fibonacci[2 n]*Fibonacci[2 n + 2], {n, 0, 100}] (* Vladimir Joseph Stephan Orlovsky, Jul 01 2011 *)
Accumulate[Fibonacci[4*Range[0,30]]] (* or *) LinearRecurrence[{8,-8,1},{0,3,24},30] (* Harvey P. Dale, Jul 25 2013 *)

a(n)=fibonacci(2*n)*fibonacci(2*n+2) \\ Charles R Greathouse IV, Jul 02 2013

a(n) = -3/5 + (1/5*sqrt(5)+3/5)*(2*1/(7+3*sqrt(5)))^n/(7+3*sqrt(5)) + (1/5*sqrt(5)-3/5)*(-2*1/(-7+3*sqrt(5)))^n/(-7+3*sqrt(5)). Recurrence: a(n) = 8*a(n-1) - 8*a(n-2) + a(n-3). G.f.: 3*x/(1-7*x+x^2)/(1-x). - Vladeta Jovovic, Jun 09 2002
a(n) = A081068(n) - 1.
a(n) is the next integer from ((3+sqrt(5))*((7+3*sqrt(5))/2)^(n-1)-6)/10. - Paul Weisenhorn, May 17 2009
a(n) = 7*a(n-1) - a(n-2) + 3, n>1. - Gary Detlefs, Dec 07 2010
a(n) = sum_{k=0..n} Fibonacci(4k). - Gary Detlefs, Dec 07 2010
a(n) = (Lucas(4n+2)-3)/5, where Lucas(n)= A000032(n). - Gary Detlefs, Dec 07 2010
a(n) = (1/5)*(Fibonacci(4n+4) - Fibonacci(4n)-3). - Gary Detlefs, Dec 08 2010
a(n) = 3*A092521(n). - R. J. Mathar, Nov 03 2011
a(0)=0, a(1)=3, a(2)=24, a(n) = 8*a(n-1) - 8*a(n-2) + a(n-3). - Harvey P. Dale, Jul 25 2013
a(n) = A001906(n)*A001906(n+1). - R. J. Mathar, Jul 09 2019
Sum_{n>=1} 1/a(n) = 2/(3 + sqrt(5)) = A094874 - 1. - Amiram Eldar, Oct 05 2020
a(n) = a(-1-n) for all n in Z. - Michael Somos, Jan 23 2025

A245306 a(n) = Fibonacci(n)^2+1.

Original entry on oeis.org

1, 2, 2, 5, 10, 26, 65, 170, 442, 1157, 3026, 7922, 20737, 54290, 142130, 372101, 974170, 2550410, 6677057, 17480762, 45765226, 119814917, 313679522, 821223650, 2149991425, 5628750626, 14736260450, 38580030725, 101003831722, 264431464442, 692290561601

Offset: 0

Michel Lagneau, Jul 17 2014

a(n) is the product of two Fibonacci numbers.

			a(9) = Fibonacci(9)^2+1 = 34^2+1 = 1157 = A001519(4)* A001519(6)= 13*89.

Index entries for linear recurrences with constant coefficients, signature (3,0,-3,1).

Cf. A000045, A001519, A001622, A007598, A080097.

with(numtheory):with(combinat,fibonacci):nn:=100:for i from 0 to nn do:x:=fibonacci(i)^2+1: printf(`%d, `,x):od:

Fibonacci[Range[0,30]]^2+1 (* Harvey P. Dale, Aug 05 2018 *)

a(n) = fibonacci(n)^2+1; \\ Michel Marcus, Oct 20 2020

a(2n) = A001519(n)* A001519(n+1) and a(2n+1) = A001519(n)* A001519(n+2).
a(n) = A007598(n)+1.
G.f.: -(2*x^3-4*x^2-x+1)/(x^4-3*x^3+3*x-1). - Alois P. Heinz, Jul 17 2014
Sum_{n>=0} 1/a(n) = (3 + 5*sqrt(5))/6 = (5*phi - 1)/3, where phi is the golden ratio (A001622). - Amiram Eldar, Oct 20 2020
a(2n) = A000045(2n-1)*A000045(2n+1). a(2n+1) = A000045(2n-1)*A000045(2n+3). - Chai Wah Wu, Nov 26 2020
a(n) = a(-n) = |F(n) + i|^2 for all n in Z. - Michael Somos, Sep 16 2023

A080144 a(n) = F(4)F(n)F(n+1) + F(5)F(n+1)^2 if n odd, a(n) = F(4)F(n)F(n+1) + F(5)F(n+1)^2 - F(5) if n even, where F(n) is the n-th Fibonacci number (A000045).

Original entry on oeis.org

0, 8, 21, 63, 165, 440, 1152, 3024, 7917, 20735, 54285, 142128, 372096, 974168, 2550405, 6677055, 17480757, 45765224, 119814912, 313679520, 821223645, 2149991423, 5628750621, 14736260448, 38580030720, 101003831720

Offset: 0

Mario Catalani (mario.catalani(AT)unito.it), Jan 31 2003

The present sequence is a member of the m-family of sums b(m,n) := Sum_{k=1..n} F(k+m)*F(k) for m >= 0, n >= 0 (see the B. Cloitre formula given below (m=5)). These sums are (F(m)*A027941(n) + L(m)*A001654(n))/2, with F = A000045 and the L = A000032. Proof by induction on m using the recurrence. - Wolfdieter Lang, Jul 27 2012
The o.g.f. of b(m,n) is A(m,x) = x*(F(m+1) - F(m-1)*x)/((1-x^2)*(1-3*x+x^2)), m >= 0, with F(-1)=1. - Wolfdieter Lang, Jul 30 2012
b(m,n) = ((-1)^(n+1)*L(m) - 5*F(m) + 2*L(m + 2*n + 1))/10. - Ehren Metcalfe, Aug 21 2017

G. C. Greubel, Table of n, a(n) for n = 0..1000
S. Falcon, On the Sequences of Products of Two k-Fibonacci Numbers, American Review of Mathematics and Statistics, March 2014, Vol. 2, No. 1, pp. 111-120.
Index entries for linear recurrences with constant coefficients, signature (3, 0, -3, 1).

Cf. A000032, A000045, A059840, A064831, A080143.

F:=Fibonacci;; List([0..30], n-> (2*F(n+3)^2 -5-3*(-1)^n)/2); # G. C. Greubel, Jul 23 2019

F:=Fibonacci; [(2*F(n+3)^2 -5-3*(-1)^n)/2: n in [0..30]]; // G. C. Greubel, Jul 23 2019

CoefficientList[Series[x*(8+5*x-3*x^2)/((1-x^2)*(1-2x-2x^2+x^3)), {x, 0, 30}], x]
With[{F=Fibonacci}, Table[(2*F[n + 3]^2 -5-3*(-1)^n)/2, {n,0,30}]] (* G. C. Greubel, Jul 23 2019 *)

my(x='x+O('x^30)); concat([0],Vec(x*(8-3*x)/((1-x^2)*(1-3*x+x^2)) )) \\ G. C. Greubel, Mar 04 2017

vector(30, n, n--; f=fibonacci; (2*f(n+3)^2 -5-3*(-1)^n)/2) \\ G. C. Greubel, Jul 23 2019

f=fibonacci; [(2*f(n+3)^2 -5-3*(-1)^n)/2 for n in (0..30)] # G. C. Greubel, Jul 23 2019

G.f.: x*(8-3*x)/((1-x^2)*(1-3*x+x^2)) (see the comment section). - Wolfdieter Lang, Jul 30 2012
a(n) = Sum_{i=0..n} A000045(i+5)*A000045(i). - Benoit Cloitre, Jun 14 2004
a(n) = (5*A027941(n) + 11*A001654(n))/2, n >= 0. See A080143 and A080097. See the comment section for the general formula for such sums. - Wolfdieter Lang, Jul 27 2012
a(n) = (2*Lucas(2*n + 6) + 11*(-1)^(n+1) - 25)/10. - Ehren Metcalfe, Aug 21 2017
a(n) = (2*Fibonacci(n+3)^2 - 5 - 3*(-1)^n)/2. - G. C. Greubel, Jul 23 2019

A080143 a(n) = F(3)F(n)F(n+1) + F(4)F(n+1)^2 - F(4) if n even, F(3)F(n)F(n+1) + F(4)F(n+1)^2 if n odd, where F(n) is the n-th Fibonacci number (A000045).

Original entry on oeis.org

0, 5, 13, 39, 102, 272, 712, 1869, 4893, 12815, 33550, 87840, 229968, 602069, 1576237, 4126647, 10803702, 28284464, 74049688, 193864605, 507544125, 1328767775, 3478759198, 9107509824, 23843770272, 62423800997, 163427632717

Offset: 0

Mario Catalani (mario.catalani(AT)unito.it), Jan 30 2003

G. C. Greubel, Table of n, a(n) for n = 0..1000
S. Falcon, On the Sequences of Products of Two k-Fibonacci Numbers, American Review of Mathematics and Statistics, March 2014, Vol. 2, No. 1, pp. 111-120.
Index entries for linear recurrences with constant coefficients, signature (3,0,-3,1).

Cf. A064831, A059840, A080097, A080144.

F:=Fibonacci;; List([0..30], n-> (2*F(n+2)*F(n+3) -3 -(-1)^n)/2); # G. C. Greubel, Jul 23 2019

F:=Fibonacci; [(2*F(n+2)*F(n+3) -3 -(-1)^n)/2: n in [0..30]]; // G. C. Greubel, Jul 23 2019

CoefficientList[Series[x*(5+3*x-2*x^2)/((1-x^2)*(1-2*x-2*x^2+x^3)), {x, 0, 30}], x]
With[{F=Fibonacci}, Table[(2*F[n+2]*F[n+3] -3 -(-1)^n)/2, {n,0,30}]] (* G. C. Greubel, Jul 23 2019 *)

my(x='x+O('x^30)); concat([0], Vec(x*(5+3*x-2*x^2)/((1-x^2)*(1- 2*x-2*x^2+x^3)))) \\ G. C. Greubel, Mar 05 2017

vector(30, n, n--; f=fibonacci; (2*f(n+2)*f(n+3) -3 -(-1)^n)/2) \\ G. C. Greubel, Jul 23 2019

f=fibonacci; [(2*f(n+2)*f(n+3) -3 -(-1)^n)/2 for n in (0..30)] # G. C. Greubel, Jul 23 2019

G.f.: x*(5-2*x)/((1-x^2)*(1-3*x+x^2)), see a comment on A080144 for A(4,x). - Wolfdieter Lang, Jul 30 2012
a(n) = Sum_{i=0..n} ( A000045(i+4)*A000045(i) ). - Benoit Cloitre, Jun 14 2004
a(n) = (3*A027941(n) + 7*A001654(n))/2, n >= 0. Proof: from the preceding sum given by B. Cloitre via recurrence on the first factor under the sum. See also A080097 and A059840(n+2). - Wolfdieter Lang, Jul 27 2012
a(n) = (2*Lucas(2*n + 5) + 7*(-1)^(n+1) - 15)/10. - Ehren Metcalfe, Aug 21 2017
a(n) = (2*Fibonacci(n+2)*Fibonacci(n+3) - 3 - (-1)^n)/2. - G. C. Greubel, Jul 23 2019

cp's OEIS Frontend

A007598 Squared Fibonacci numbers: a(n) = F(n)^2 where F = A000045.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

GAP

Haskell

Magma

Maple

Mathematica

PARI

PARI

Python

Sage

Sage

Formula

A000119 Number of representations of n as a sum of distinct Fibonacci numbers.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

PARI

Formula

Extensions

A202453 Fibonacci self-fusion matrix, by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A206981 Number of n X 2 0..1 arrays avoiding the patterns 0 1 0 or 1 0 1 in any row, column, diagonal or antidiagonal.

Views

Author

Keywords

Examples

Links

Crossrefs

Formula

A049997 Numbers of the form Fibonacci(i)*Fibonacci(j).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A058038 a(n) = Fibonacci(2*n)*Fibonacci(2*n+2).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

A058038 a(n) = Fibonacci(2n)Fibonacci(2*n+2).

A080144 a(n) = F(4)F(n)F(n+1) + F(5)F(n+1)^2 if n odd, a(n) = F(4)F(n)F(n+1) + F(5)F(n+1)^2 - F(5) if n even, where F(n) is the n-th Fibonacci number (A000045).

A080143 a(n) = F(3)F(n)F(n+1) + F(4)F(n+1)^2 - F(4) if n even, F(3)F(n)F(n+1) + F(4)F(n+1)^2 if n odd, where F(n) is the n-th Fibonacci number (A000045).