|
| |
|
|
A152717
|
|
A vector recursion: k=5; a(n)={1,k*a(n-2),1}.
|
|
0
|
|
|
|
1, 1, 1, 1, 5, 1, 1, 5, 5, 1, 1, 5, 25, 5, 1, 1, 5, 25, 25, 5, 1, 1, 5, 25, 125, 25, 5, 1, 1, 5, 25, 125, 125, 25, 5, 1, 1, 5, 25, 125, 625, 125, 25, 5, 1, 1, 5, 25, 125, 625, 625, 125, 25, 5, 1, 1, 5, 25, 125, 625, 3125, 625, 125, 25, 5, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,5
|
|
|
COMMENTS
|
Row sums are: {1, 2, 7, 12, 37, 62, 187, 312, 937, 1562, 4687,...}
|
|
|
LINKS
|
Table of n, a(n) for n=0..65.
|
|
|
FORMULA
|
k=5; a(n)={1,k*a(n-2),1}.
|
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 5, 1},
{1, 5, 5, 1},
{1, 5, 25, 5, 1},
{1, 5, 25, 25, 5, 1},
{1, 5, 25, 125, 25, 5, 1},
{1, 5, 25, 125, 125, 25, 5, 1},
{1, 5, 25, 125, 625, 125, 25, 5, 1},
{1, 5, 25, 125, 625, 625, 125, 25, 5, 1},
{1, 5, 25, 125, 625, 3125, 625, 125, 25, 5, 1}
|
|
|
MATHEMATICA
|
Clear[a, k, m]; k = 5; a[0] = {1}; a[1] = {1, 1};
a[n_] := a[n] = Join[{1}, k*a[n - 2], {1}];
Table[a[n], {n, 0, 10}];
Flatten[%]
|
|
|
CROSSREFS
|
A144464
Sequence in context: A010333 A131777 A046607 * A071856 A144221 A209575
Adjacent sequences: A152714 A152715 A152716 * A152718 A152719 A152720
|
|
|
KEYWORD
|
nonn,tabl
|
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson, Dec 11 2008
|
|
|
STATUS
|
approved
|
| |
|
|
