|
Search: id:A152861
|
|
|
| A152861 |
|
Scaled row sum zero vector recursion:s=7; v(n)={s^(n+1),s^(n+1)-Sum[s^i,{i,2,n}],s^n,...,-1}/s^2. |
|
+0
1
|
|
| 1, 1, -1, 7, -6, -1, 49, -41, -7, -1, 343, -286, -49, -7, -1, 2401, -2001, -343, -49, -7, -1, 16807, -14006, -2401, -343, -49, -7, -1, 117649, -98041, -16807, -2401, -343, -49, -7, -1, 823543, -686286, -117649, -16807, -2401, -343, -49, -7, -1, 5764801
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
FORMULA
|
s = 7; v(n) = {s^(n+1),s^(n+1)-Sum[s^i,{i,2,n}],s^n,...,-1}/s^2.
|
|
EXAMPLE
|
{1},
{1, -1},
{7, -6, -1},
{49, -41, -7, -1},
{343, -286, -49, -7, -1},
{2401, -2001, -343, -49, -7, -1},
{16807, -14006, -2401, -343, -49, -7, -1},
{117649, -98041, -16807, -2401, -343, -49, -7, -1},
{823543, -686286, -117649, -16807, -2401, -343, -49, -7, -1},
{5764801, -4804001, -823543, -117649, -16807, -2401, -343, -49, -7, -1},
{40353607, -33628006, -5764801, -823543, -117649, -16807, -2401, -343, -49, -7, -1}
|
|
MATHEMATICA
|
Clear[s, b, n]; s = 7; b[0] = {1}; b[1] = {1, -1};
b[n_] := Join[{s^(n + 1)}, -{s^(n + 1) - Sum[s^i, {i, n, 2, -1}]}, -Table[s^i, {i, n, 2, -1}]]/49;
Table[b[n], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A152755 A152722 A100082 this_sequence A138096 A011102 A068469
Adjacent sequences: A152858 A152859 A152860 this_sequence A152862 A152863 A152864
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 14 2008
|
|
|
Search completed in 0.002 seconds
|
