A102012 Triangle formed by right half of A101842, read by rows.
1, 3, 1, 16, 7, 1, 115, 61, 15, 1, 1056, 626, 206, 31, 1, 11774, 7554, 2989, 659, 63, 1, 154624, 105099, 47349, 13308, 2052, 127, 1, 2337507, 1660957, 824331, 274677, 56935, 6297, 255, 1, 39984640, 29428654, 15747154, 5960818, 1518478, 237862
Offset: 1
Examples
Triangle begins: 1 3, 1 16, 7, 1 115, 61, 15, 1 1056, 626, 206, 31, 1 11774, 7554, 2989, 659, 63, 1
Programs
-
Maple
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
Extensions
More terms from R. J. Mathar, Aug 07 2007