|
%I #3 Mar 30 2012 17:34:41
%S 0,1,1,2,7,25,100,469,2481,14406,90995,621553,4561112,35736921,
%T 297435521,2618575194,24297706927,236870849417,2419213831452,
%U 25820011544781,287327296473585,3326999636488190,40011485288491131
%N Antidiagonal sums of the triangle A060187.
%C This sequence is an analog to the Lucas formula which obtains A000045 as the antidiagonal sums of the Pascal triangle A007318.
%D David M. Burton, Elementary number theory, McGraw Hill (2002), page 286
%F a(n) = sum_{m=0.. floor[(n-1)/2]} A060187(n-m-1,m).
%t p[x_, n_] = (1 - x)^(n + 1)*Sum[(2*k + 1)^n*x^k, {k, 0, Infinity}];
%t f[n_, m_] := CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x][[m + 1]]
%t a[n_] := Sum[f[n - m - 1, m], {m, 0, Floor[(n - 1)/2]}]
%t Table[a[n], {n, 0, 30}]
%Y Cf. A000800, A060187, A000045
%K nonn
%O 0,4
%A _Roger L. Bagula_, May 20 2010
%E Exact definition moved to formula - the Assoc. Eds. of the OEIS, Aug 20 2010
|
