

A046934


Same rule as Aitken triangle (A011971) except a(0,0)=1, a(1,0)=0.


7



1, 0, 1, 1, 1, 2, 2, 3, 4, 6, 6, 8, 11, 15, 21, 21, 27, 35, 46, 61, 82, 82, 103, 130, 165, 211, 272, 354, 354, 436, 539, 669, 834, 1045, 1317, 1671, 1671, 2025, 2461, 3000, 3669, 4503, 5548, 6865, 8536, 8536, 10207, 12232, 14693, 17693, 21362, 25865
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,6


COMMENTS

First differences of A046935 = this triangle seen as flattened list without the initial term.  Reinhard Zumkeller, Nov 10 2013


LINKS

Reinhard Zumkeller, Rows n = 0..125 of triangle, flattened


EXAMPLE

1; 0,1; 1,1,2; 2,3,4,6;...


MATHEMATICA

a[0, 0] = 1; a[1, 0] = 0; a[n_, 0] := a[n, 0] = a[n1, n1]; a[n_, k_] := a[n, k] = a[n, k1] + a[n1, k1]; Table[a[n, k], {n, 0, 9}, {k, 0, n}] // Flatten (* JeanFrançois Alcover, Oct 14 2013 *)


PROG

(Haskell)
a046934 n k = a046934_tabl !! n !! k
a046934_row n = a046934_tabl !! n
a046934_tabl = [1] : iterate (\row > scanl (+) (last row) row) [0, 1]
a046934_list = concat a046934_tabl
 Reinhard Zumkeller, Nov 10 2013


CROSSREFS

Borders give A032347 and A032346. Cf. A046935.
Sequence in context: A246778 A101344 A152048 * A093594 A008806 A238860
Adjacent sequences: A046931 A046932 A046933 * A046935 A046936 A046937


KEYWORD

tabl,easy,nice,nonn


AUTHOR

N. J. A. Sloane, R. K. Guy


STATUS

approved



