This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .