AUTHOR
_Paul D. Hanna (pauldhanna(AT)juno.com), _, Oct 14 2005
_Paul D. Hanna (pauldhanna(AT)juno.com), _, Oct 14 2005
nonn,new
nonn
Paul D . Hanna (pauldhanna(AT)juno.com), Oct 14 2005
1, 2, 21, 724, 75695, 23694838, 22239639177, 62747494950248, 532868670719193651, 13624738004791751175370, 1048678107774203901392276461, 242892250870416811233766661498812
1,2
(PARI) {a(n, q=3)=local(M=matrix(n+1, n+1)); for(r=1, n+1, for(c=1, r, M[r, c]=if(r==c, 1, if(c>1, (M^q)[r-1, c-1])+(M^q)[r-1, c]))); return(if(n<1, 0, (M^n)[n, 1]))}
nonn
Paul D Hanna (pauldhanna(AT)juno.com), Oct 14 2005
approved