|
|
A046936
|
|
Same rule as Aitken triangle (A011971) except a(0,0)=0, a(1,0)=1.
|
|
6
|
|
|
0, 1, 1, 1, 2, 3, 3, 4, 6, 9, 9, 12, 16, 22, 31, 31, 40, 52, 68, 90, 121, 121, 152, 192, 244, 312, 402, 523, 523, 644, 796, 988, 1232, 1544, 1946, 2469, 2469, 2992, 3636, 4432, 5420, 6652, 8196, 10142, 12611, 12611, 15080, 18072, 21708, 26140
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle starts:
0,
1, 1,
1, 2, 3,
3, 4, 6, 9,
9, 12, 16, 22, 31,
31, 40, 52, 68, 90, 121,
121, 152, 192, 244, 312, 402, 523,
523, 644, 796, 988, 1232, 1544, 1946, 2469,
2469, 2992, 3636, 4432, 5420, 6652, 8196, 10142, 12611,
12611, 15080, ...
|
|
MATHEMATICA
|
a[0, 0] = 0; a[1, 0] = 1; a[n_, 0] := a[n, 0] = a[n-1, n-1]; a[n_, k_] := a[n, k] = a[n, k-1] + a[n-1, k-1]; Table[a[n, k], {n, 0, 9}, {k, 0, n}] // Flatten (* Jean-François Alcover, Nov 15 2013 *)
|
|
PROG
|
(Haskell)
a046936 n k = a046936_tabl !! n !! k
a046936_row n = a046936_tabl !! n
a046936_tabl = [0] : iterate (\row -> scanl (+) (last row) row) [1, 1]
(Python 3)
from itertools import accumulate
yield [0]
accu = [1, 1]
while True:
yield accu
accu = list(accumulate([accu[-1]] + accu))
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|