|
| |
|
|
A158786
|
|
A recursive sequence: e(n,k)=(e(n - 1, k)*e(n, k - 1) + 1)/e(n - 1, k - 1)
|
|
0
| |
|
|
1, 25, 4, 1, 100, 25, 11, 4, 1, 275, 100, 25, 29, 11, 4, 1, 725, 275, 100, 25, 76, 29, 11, 4, 1
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,2
|
|
|
COMMENTS
| Row sums are:
{1, 25, 5, 125, 16, 400, 45, 1125, 121,...}.
|
|
|
REFERENCES
| H. S. M. Coxeter, Regular Polytopes, 3rd ed., Dover, NY, 1973, pp 159-162
|
|
|
FORMULA
| e(n,k)=(e(n - 1, k)*e(n, k - 1) + 1)/e(n - 1, k - 1);
out_(n,m)=5*(e(n,m)
|
|
|
EXAMPLE
| {1},
{25},
{4, 1},
{100, 25},
{11, 4, 1},
{275, 100, 25},
{29, 11, 4, 1},
{725, 275, 100, 25},
{76, 29, 11, 4, 1}
|
|
|
MATHEMATICA
| Clear[e, n, k];
e[n_, 0] := Sqrt[5]*(GoldenRatio^n + GoldenRatio^(-n));
e[n_, k_] := 0 /; k >= n;
e[n_, k_] := (e[n - 1, k]*e[n, k - 1] + 1)/e[n - 1, k - 1];
Table[Table[5*Rationalize[N[e[n, k]]], {k, Mod[ n, 2] + 1, n - 1, 2}], {n, 1, 10}];
Flatten[%]
|
|
|
CROSSREFS
| A158753, A002878
Sequence in context: A040614 A040615 A040610 * A040611 A040608 A077490
Adjacent sequences: A158783 A158784 A158785 * A158787 A158788 A158789
|
|
|
KEYWORD
| nonn,tabl,uned
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Mar 26 2009
|
| |
|
|
