A173280 First column of the matrix power A173279(.,.)^j in the limit j->infinity.

1, 1, 3, 7, 29, 129, 757, 5185, 41155, 368351, 3671635, 40295943, 482758111, 6268066531, 87668492115, 1314023850727, 21011431917453, 357014074280785, 6423561495057421, 122004755658629081, 2439367774898883497, 51213663674167659301, 1126452985959434543237

Offset

0,3

Comments

We can generalize A173279 to other matrices derived from some sequence S by Smat(n,k) := S(n-r*k), r >= 2,

and find that they define sequences B(x) via S(x)= B(X)/B(x^r), b(n) = Sum_{t=0..n, n-t == 0 (mod r)} S(t)*B_{(n-t)/r}.

The sequence here is the case of S=A000142 and r=2.

Links

Jean-François Alcover, Table of n, a(n) for n = 0..100

Formula

A000142(x) = A(x)/A(x^2), where A(x) and A000142(x) are the o.g.f.'s associated with A000142 and this sequence here.

Sum_{n>=0} 1/a(n) = 2.519966353393413186683398448854995831308...

a(n) = (A173279^j)(n,0).

a(n) = Sum_{t=0..n, n-t even} t!*a_{(n-t)/2}. - R. J. Mathar, Feb 22 2010

Maple

A173280 := proc(n) option remember; local a, l; if n = 0 then 1; else a :=0 ; for l from n to 0 by -2 do a := a+ l!*procname((n-l)/2) : end do ; a ; end if; end proc:
seq(A173280(n), n=0..60) ; # R. J. Mathar, Feb 22 2010

Mathematica

A173280[n_] := A173280[n] = Module[{a, l}, If[n == 0, 1, a = 0; For[l = n, l >= 0, l -= 2, a = a + l!*A173280[(n-l)/2]]; a]];
Table[A173280[n], {n, 0, 100}] (* Jean-François Alcover, Aug 02 2023, after R. J. Mathar *)

Crossrefs

Cf. A000142.

Sequence in context: A358389 A358279 A217576 * A141477 A211371 A361436

Adjacent sequences: A173277 A173278 A173279 * A173281 A173282 A173283

Keyword

nonn

Author

Gary W. Adamson, Feb 14 2010

Extensions

Extended, and invalid comment on convergence to e removed, by R. J. Mathar, Feb 22 2010

Index of B in the convolution formula in the comment corrected by R. J. Mathar, Mar 23 2010

Status

approved