|
%I #16 May 27 2016 16:34:31
%S 1,9,89,961,11265,142601,1940089,28245729,438351041,7226001865,
%T 126122874201,2324074591169,45094140207169,919088049256521,
%U 19633713260950265,438708172312264801,10234490436580101249
%N E.g.f.: exp(x)/(1-x)^8.
%C Sum_{k = 0..n} A094816(n,k)*x^k gives A000522(n), A001339(n), A082030(n), A095000(n), A095177(n), A096307(n), A096341(n) for x = 1, 2, 3, 4, 5, 6, 7 respectively.
%H G. C. Greubel, <a href="/A095722/b095722.txt">Table of n, a(n) for n = 0..250</a>
%F a(n) = Sum_{k = 0..n} A094816(n, k)*8^k.
%F a(n) = Sum_{k = 0..n} binomial(n, k)*(k+7)! / 7!.
%F a(n) = 2F0(8,-n;;-1). - _Benedict W. J. Irwin_, May 27 2016
%t With[{nn=20},CoefficientList[Series[Exp[x]/(1-x)^8,{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, May 26 2013 *)
%t Table[HypergeometricPFQ[{8, -n}, {}, -1], {n, 0, 20}] (* _Benedict W. J. Irwin_, May 27 2016 *)
%K nonn
%O 0,2
%A _Philippe Deléham_, Jul 08 2004
|
