[go: up one dir, main page]

login
Search: a181926 -id:a181926
     Sort: relevance | references | number | modified | created      Format: long | short | data
Triangle of Fibonomial coefficients.
+10
48
1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 3, 6, 3, 1, 1, 5, 15, 15, 5, 1, 1, 8, 40, 60, 40, 8, 1, 1, 13, 104, 260, 260, 104, 13, 1, 1, 21, 273, 1092, 1820, 1092, 273, 21, 1, 1, 34, 714, 4641, 12376, 12376, 4641, 714, 34, 1, 1, 55, 1870, 19635, 85085, 136136, 85085, 19635, 1870, 55, 1
OFFSET
0,8
COMMENTS
Conjecture: polynomials with (positive) Fibonomial coefficients are reducible iff n odd > 1. - Ralf Stephan, Oct 29 2004
REFERENCES
A. T. Benjamin and J. J. Quinn, Proofs that really count: the art of combinatorial proof, M.A.A. 2003, p. 15.
D. E. Knuth, The Art of Computer Programming. Addison-Wesley, Reading, MA, Vol. 1, p. 84 and 492.
LINKS
Paul Barry, On Integer-Sequence-Based Constructions of Generalized Pascal Triangles, Journal of Integer Sequences, Vol. 9 (2006), Article 06.2.4.
A. T. Benjamin and S. S. Plott, A combinatorial approach to fibonomial coefficients, Fib. Quart. 46/47 (1) (2008/9) 7-9.
A. Brousseau, Fibonacci and Related Number Theoretic Tables, Fibonacci Association, San Jose, CA, 1972.
Johann Cigler, Pascal triangle, Hoggatt matrices, and analogous constructions, arXiv:2103.01652 [math.CO], 2021.
M. Dziemianczuk, Cobweb Sequences Map, See sequence (4).2.
Tom Edgar and Michael Z. Spivey, Multiplicative functions, generalized binomial coefficients, and generalized Catalan numbers, Journal of Integer Sequences, Vol. 19 (2016), Article 16.1.6.
P. F. F. Espinosa, J. F. González, J. P. Herrán, A. M. Cañadas, and J. L. Ramírez, On some relationships between snake graphs and Brauer configuration algebras, Algebra Disc. Math. (2022) Vol. 33, No. 2, 29-59.
S. Falcon, On The Generating Functions of the Powers of the K-Fibonacci Numbers, Scholars Journal of Engineering and Technology (SJET), 2014; 2 (4C):669-675.
Dale Gerdemann, Golden Ratio Base Digit Patterns for Columns of the Fibonomial Triangle, "Another interesting pattern is for Golden Rectangle Numbers A001654. I made a short video illustrating this pattern, along with other columns of the Fibonomial Triangle A010048".
Dale K. Hathaway and Stephen L. Brown, Fibonacci Powers and a Fascinating Triangle, The College Mathematics Journal, 28 (No. 2, 1997), 124-128. See Fig. 1.
Ron Knott, The Fibonomials.
E. Krot, An introduction to finite Fibonomial calculus, arXiv:math/0503210 [math.CO], 2005.
E. Krot, Further developments in Fibonomial calculus, arXiv:math/0410550 [math.CO], 2004.
D. Marques and P. Trojovsky, On Divisibility of Fibonomial Coefficients by 3, J. Int. Seq. 15 (2012) #12.6.4.
D. Marques and P. Trojovsky, The p-adic order of some fibonomial coefficients, J. Int. Seq. 18 (2015) # 15.3.1.
R. Mestrovic, Lucas' theorem: its generalizations, extensions and applications (1878--2014), arXiv preprint arXiv:1409.3820 [math.NT], 2014.
Phakhinkon Phunphayap, Various Problems Concerning Factorials, Binomial Coefficients, Fibonomial Coefficients, and Palindromes, Ph. D. Thesis, Silpakorn University (Thailand 2021).
Phakhinkon Phunphayap and Prapanpong Pongsriiam, Explicit Formulas for the p-adic Valuations of Fibonomial Coefficients, J. Int. Seq. 21 (2018), #18.3.1.
C. Pita, On s-Fibonomials, J. Int. Seq. 14 (2011) # 11.3.7.
C. J. Pita Ruiz Velasco, Sums of Products of s-Fibonacci Polynomial Sequences, J. Int. Seq. 14 (2011) # 11.7.6.
T. M. Richardson, The Filbert Matrix, arXiv:math/9905079 [math.RA], 1992.
Bruce Sagan, Two Binomial Coefficient Analogues, Slides, 2013.
Jeremiah Southwick, A Conjecture concerning the Fibonomial Triangle, arXiv:1604.04775 [math.NT], 2016.
Eric Weisstein's World of Mathematics, Fibonacci Coefficient, q-Binomial Coefficient.
FORMULA
T(n, k) = ((n, k)) = (F(n)*F(n-1)*...*F(n-k+1))/(F(k)*F(k-1)*...*F(1)), F(i) = Fibonacci numbers A000045.
T(n, k) = Fibonacci(n-k-1)*T(n-1, k-1) + Fibonacci(k+1)*T(n-1, k).
T(n, k) = phi^(k*(n-k)) * C(n, k)_{-1/phi^2}, where phi = (1+sqrt(5))/2 = A001622 is the golden ratio, and C(n, k)_q is the q-binomial coefficient. - Vladimir Reshetnikov, Sep 26 2016
EXAMPLE
First few rows of the triangle T(n, k) are:
n\k 0 1 2 3 4 5 6 7 8 9 10
0: 1
1: 1 1
2: 1 1 1
3: 1 2 2 1
4: 1 3 6 3 1
5: 1 5 15 15 5 1
6: 1 8 40 60 40 8 1
7: 1 13 104 260 260 104 13 1
8: 1 21 273 1092 1820 1092 273 21 1
9: 1 34 714 4641 12376 12376 4641 714 34 1
10: 1 55 1870 19635 85085 136136 85085 19635 1870 55 1
... - Table extended and reformatted by Wolfdieter Lang, Oct 10 2012
For n=7 and k=3, n - k + 1 = 7 - 3 + 1 = 5, so T(7,3) = F(7)*F(6)*F(5)/( F(3)*F(2)*F(1)) = 13*8*5/(2*1*1) = 520/2 = 260. - Michael B. Porter, Sep 26 2016
MAPLE
A010048 := proc(n, k)
mul(combinat[fibonacci](i), i=n-k+1..n)/mul(combinat[fibonacci](i), i=1..k) ;
end proc:
seq(seq(A010048(n, k), k=0..n), n=0..10) ; # R. J. Mathar, Feb 05 2015
MATHEMATICA
f[n_, k_] := Product[ Fibonacci[n - j + 1]/Fibonacci[j], {j, k}]; Table[ f[n, i], {n, 0, 10}, {i, 0, n}] (* Robert G. Wilson v, Dec 04 2009 *)
Column[Round@Table[GoldenRatio^(k(n-k)) QBinomial[n, k, -1/GoldenRatio^2], {n, 0, 10}, {k, 0, n}], Center] (* Round is equivalent to FullSimplify here, but is much faster - Vladimir Reshetnikov, Sep 25 2016 *)
PROG
(Maxima) ffib(n):=prod(fib(k), k, 1, n);
fibonomial(n, k):=ffib(n)/(ffib(k)*ffib(n-k));
create_list(fibonomial(n, k), n, 0, 20, k, 0, n); /* Emanuele Munarini, Apr 02 2012 */
(PARI) T(n, k) = prod(j=0, k-1, fibonacci(n-j))/prod(j=1, k, fibonacci(j));
tabl(nn) = for (n=0, nn, for (k=0, n, print1(T(n, k), ", ")); print); \\ Michel Marcus, Jul 20 2018
(Magma)
Fibonomial:= func< n, k | k eq 0 select 1 else (&*[Fibonacci(n-j+1)/Fibonacci(j): j in [1..k]]) >;
[Fibonomial(n, k): k in [0..n], n in [0..12]]; // G. C. Greubel, Jul 20 2024
(SageMath)
def fibonomial(n, k): return 1 if k==0 else product(fibonacci(n-j+1)/fibonacci(j) for j in range(1, k+1))
flatten([[fibonomial(n, k) for k in range(n+1)] for n in range(13)]) # G. C. Greubel, Jul 20 2024
CROSSREFS
Cf. A055870 (signed version of triangle).
Sums include: A056569 (row), A181926 (antidiagonal), A181927 (row square-sums).
Cf. A003267 and A003268 (central Fibonomial coefficients), A003150 (Fibonomial Catalan numbers), A144712.
KEYWORD
nonn,tabl,easy,nice
STATUS
approved
Decimal expansion of Fibonacci factorial constant.
+10
33
1, 2, 2, 6, 7, 4, 2, 0, 1, 0, 7, 2, 0, 3, 5, 3, 2, 4, 4, 4, 1, 7, 6, 3, 0, 2, 3, 0, 4, 5, 5, 3, 6, 1, 6, 5, 5, 8, 7, 1, 4, 0, 9, 6, 9, 0, 4, 4, 0, 2, 5, 0, 4, 1, 9, 6, 4, 3, 2, 9, 7, 3, 0, 1, 2, 1, 4, 0, 2, 2, 1, 3, 8, 3, 1, 5, 3, 1, 2, 1, 6, 8, 4, 5, 2, 6, 2, 1, 5, 6, 2, 4, 9, 4, 7, 9, 7, 7, 4, 1, 2, 5, 9, 1, 3
OFFSET
1,2
COMMENTS
The Fibonacci factorial constant is associated with the Fibonacci factorial A003266.
Two closely related constants are A194159 and A194160. [Johannes W. Meijer, Aug 21 2011]
REFERENCES
S. R. Finch, Mathematical Constants, Cambridge, 2003, Section 1.2.5.
R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics, Addison Wesley, 1990, pp. 478, 571.
LINKS
M. Griffiths, Symmetric rational expressions in the Fibonacci numbers, Fib. Q., 46/47 (2008/2009), 262-267. [N. J. A. Sloane, Dec 05 2009]
Simon Plouffe, Fibonacci factorials
Eric Weisstein's World of Mathematics, Fibonacci Factorial Constant
FORMULA
C = (1-a)*(1-a^2)*(1-a^3)... 1.2267420... where a = -1/phi^2 and where phi is the Golden ratio = 1/2 + sqrt(5)/2.
C = QPochhammer[ -1/GoldenRatio^2]. [Eric W. Weisstein, Dec 01 2009]
C = A194159 * A194160. [Johannes W. Meijer, Aug 21 2011]
C = exp( Sum_{k>=1} 1/(k*(1-(-(3+sqrt(5))/2)^k)) ). - Vaclav Kotesovec, Jun 08 2013
C = Sum_{k = -inf .. inf} (-1)^((k-1)*k/2) / phi^((3*k-1)*k), where phi = (1 + sqrt(5))/2. - Vladimir Reshetnikov, Sep 20 2016
EXAMPLE
1.226742010720353244417630230455361655871409690440250419643297301214...
MATHEMATICA
RealDigits[N[QPochhammer[-1/GoldenRatio^2], 105]][[1]] (* Alonso del Arte, Dec 20 2010 *)
RealDigits[N[Re[(-1)^(1/24) * GoldenRatio^(1/12) / 2^(1/3) * EllipticThetaPrime[1, 0, -I/GoldenRatio]^(1/3)], 120]][[1]] (* Vaclav Kotesovec, Jul 19 2015, after Eric W. Weisstein *)
PROG
(PARI) \p 1300 a=-1/(1/2+sqrt(5)/2)^2; prod(n=1, 17000, (1-a^n))
(PARI) { default(realprecision, 5080); p=-1/(1/2 + sqrt(5)/2)^2; x=prodinf(k=1, 1-p^k); for (n=1, 5000, d=floor(x); x=(x-d)*10; write("b062073.txt", n, " ", d)) } \\ Harry J. Smith, Jul 31 2009
KEYWORD
easy,nonn,cons
AUTHOR
Jason Earls, Jun 27 2001
STATUS
approved
Row sums of Fibonomial triangle A010048.
+10
7
1, 2, 3, 6, 14, 42, 158, 756, 4594, 35532, 349428, 4370436, 69532964, 1407280392, 36228710348, 1186337370456, 49415178236344, 2618246576596392, 176462813970065208, 15128228719573952976, 1649746715671916095304
OFFSET
0,2
LINKS
S. Falcon, On The Generating Functions of the Powers of the K-Fibonacci Numbers, Scholars Journal of Engineering and Technology (SJET), 2014; 2 (4C):669-675.
FORMULA
a(n) = Sum_{m=0..n} A010048(n, m), where A010048(n, m) = fibonomial(n, m).
From Vaclav Kotesovec, Apr 30 2015: (Start)
a(n) ~ c * ((1+sqrt(5))/2)^(n^2/4), where
c = EllipticTheta[3,0,1/GoldenRatio] / QPochhammer[-1/GoldenRatio^2] = 2.082828701647012450835512317685120373906427048806222527375... if n is even,
c = EllipticTheta[2,0,1/GoldenRatio] / QPochhammer[-1/GoldenRatio^2] = 2.082828691334156222136965926255238646603356514964103252122... if n is odd.
Or c = Sum_{j} ((1+sqrt(5))/2)^(-(j+(1-(-1)^n)/4)^2) / A062073, where A062073 = 1.2267420107203532444176302... is the Fibonacci factorial constant.
(End)
MATHEMATICA
Table[Sum[Product[Fibonacci[j], {j, 1, n}] / Product[Fibonacci[j], {j, 1, k}] / Product[Fibonacci[j], {j, 1, n-k}], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Apr 30 2015 *)
(* Or, since version 10 *) Table[Sum[Fibonorial[n]/Fibonorial[k]/Fibonorial[n-k], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Apr 30 2015 *)
Round@Table[Sum[GoldenRatio^(k(n-k)) QBinomial[n, k, -1/GoldenRatio^2], {k, 0, n}], {n, 0, 20}] (* Round is equivalent to FullSimplify here, but is much faster - Vladimir Reshetnikov, Sep 25 2016 *)
PROG
(Maxima) ffib(n):=prod(fib(k), k, 1, n);
fibonomial(n, k):=ffib(n)/(ffib(k)*ffib(n-k));
makelist(sum(fibonomial(n, k), k, 0, n), n, 0, 30); /* Emanuele Munarini, Apr 02 2012 */
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wolfdieter Lang, Jul 10 2000
STATUS
approved

Search completed in 0.007 seconds