A275593 Shifts 2 places left under MNL transform.

1, 1, 1, 2, 6, 30, 270, 5100, 229380, 27535260, 9496469340, 10086965678520, 34571745136244520, 403054252638271664040, 16565160940382442188713320, 2510059126960200448967150682000, 1444160075122431073529236697462766000

Offset

1,4

Comments

Shifts two places left under MNL transform, see A274760.

The Maple program is based on a program by Alois P. Heinz, see A007548 and A274804.

Links

Table of n, a(n) for n=1..17.

M. Bernstein and N. J. A. Sloane, Some Canonical Sequences of Integers, Linear Algebra and its Applications, Vol. 226-228 (1995), pp. 57-72. Erratum 320 (2000), 210. [Link to arXiv version]

M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]

Maple

mnltr:= proc(p) local g; g:= proc(n) option remember; `if` (n=0, 1, add(((n-1)!/(n-k)!)*p(k) *g(n-k), k=1..n)): end: end: d := mnltr(c): c := n->`if`(n<=2, 1, d(n-2)): A275593 := n -> c(n): seq(A275593(n), n=1..16);

Mathematica

mnltr[p_] := Module[{g}, g[n_] := g[n] = If[n == 0, 1, Sum[((n-1)!/(n-k)!)* p[k]*g[n-k], {k, 1, n}]]; g]; d = mnltr[a]; a[n_] := If[n <= 2, 1, d[n-2] ]; Array[a, 17] (* Jean-François Alcover, Nov 07 2017, translated from Maple *)

Crossrefs

Cf. A274760, A007548, A274804, A132039, A275594.

Sequence in context: A121406 A028361 A106339 * A381377 A120295 A071350

Adjacent sequences: A275590 A275591 A275592 * A275594 A275595 A275596

Keyword

nonn,eigen

Author

Johannes W. Meijer, Aug 03 2016

Status

approved