|
%I #18 Dec 12 2015 13:18:23
%S 1,1,3,1,3,4,1,3,4,7,1,3,4,7,6,1,3,4,7,6,12,1,3,4,7,6,12,8,1,3,4,7,6,
%T 12,8,15,1,3,4,7,6,12,8,15,13,1,3,4,7,6,12,8,15,13,18,1,3,4,7,6,12,8,
%U 15,13,18,12,1,3,4,7,6,12,8,15,13,18,12,28
%N Triangle read by rows in which row n lists the first n terms of A000203.
%C Reluctant sequence of A000203.
%C Row sums give A024916.
%C Has a symmetric representation - for more information see A237270.
%H Reinhard Zumkeller, <a href="/A245093/b245093.txt">Rows n = 1..125 of triangle, flattened</a>
%F T(n,k) = A000203(k), 1<=k<=n.
%e Triangle begins:
%e 1;
%e 1, 3;
%e 1, 3, 4;
%e 1, 3, 4, 7;
%e 1, 3, 4, 7, 6;
%e 1, 3, 4, 7, 6, 12;
%e 1, 3, 4, 7, 6, 12, 8;
%e 1, 3, 4, 7, 6, 12, 8, 15;
%e 1, 3, 4, 7, 6, 12, 8, 15, 13;
%e 1, 3, 4, 7, 6, 12, 8, 15, 13, 18;
%e 1, 3, 4, 7, 6, 12, 8, 15, 13, 18, 12;
%e 1, 3, 4, 7, 6, 12, 8, 15, 13, 18, 12, 28;
%o (Haskell)
%o import Data.List (inits)
%o a245093 n k = a245093_tabl !! (n-1) !! (k-1)
%o a245093_row n = a245093_tabl !! (n-1)
%o a245093_tabl = tail $ inits $ a000203_list
%o -- _Reinhard Zumkeller_, Dec 12 2015
%Y Cf. A000203, A024916, A027293, A104765, A140207, A221529, A237270, A237593, A245099, A265652.
%K nonn,tabl,look
%O 1,3
%A _Omar E. Pol_, Jul 15 2014
|
