|
%I #9 Aug 08 2015 21:22:55
%S 1,3,1,16,7,1,115,61,15,1,1056,626,206,31,1,11774,7554,2989,659,63,1,
%T 154624,105099,47349,13308,2052,127,1,2337507,1660957,824331,274677,
%U 56935,6297,255,1,39984640,29428654,15747154,5960818,1518478,237862
%N Triangle formed by right half of A101842, read by rows.
%e Triangle begins:
%e 1
%e 3, 1
%e 16, 7, 1
%e 115, 61, 15, 1
%e 1056, 626, 206, 31, 1
%e 11774, 7554, 2989, 659, 63, 1
%p A101842 := proc(n,k) option remember ; if k < -n or k >= n then 0 ; elif n = 1 then 1; else (n-k)*A101842(n-1,k-1)+A101842(n-1,k)+(n+k+1)*A101842(n-1,k+1) ; fi ; end: A102012 := proc(n,k) A101842(n,k-1) ; end: for n from 1 to 10 do for k from 1 to n do printf("%d, ",A102012(n,k)) ; od: od: # _R. J. Mathar_, Aug 07 2007
%K nonn,tabl
%O 1,2
%A _David Applegate_, Jun 19 2007
%E More terms from _R. J. Mathar_, Aug 07 2007
|
