|
%I M1498 #30 Jan 25 2020 17:59:03
%S 1,1,1,2,5,16,66,343,2167,16193,140919,1414947,16258868,211935996,
%T 3105828560,50748310068,918138961643,18287966027343,399145502051200,
%U 9505803743367971,246064556796896554,6897674469134480653,208651954748397405264,6788671409470892058148
%N Shifts left 2 places under Stirling2 transform.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Alois P. Heinz, <a href="/A007469/b007469.txt">Table of n, a(n) for n = 1..150</a>
%H M. Bernstein and N. J. A. Sloane, <a href="http://arXiv.org/abs/math.CO/0205301">Some canonical sequences of integers</a>, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
%H M. Bernstein and N. J. A. Sloane, <a href="/A003633/a003633_1.pdf">Some canonical sequences of integers</a>, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%p stirtr:= proc(p)
%p proc(n) add(p(k)*Stirling2(n, k), k=0..n) end
%p end:
%p a:= proc(n) option remember; `if`(n<3, 1, aa(n-2)) end:
%p aa:= stirtr(a):
%p seq(a(n), n=1..25); # _Alois P. Heinz_, Jun 22 2012
%t stirtr[p_] := Function[{n}, Sum[p[k]*StirlingS2[n, k], {k, 0, n}]]; a[n_] := a[n] = If[n<3, 1, aa[n-2]]; aa = stirtr[a]; Table[a[n], {n, 1, 24}] (* _Jean-François Alcover_, Jan 09 2013, translated from _Alois P. Heinz_'s Maple program *)
%K nonn,nice,eigen
%O 1,4
%A _N. J. A. Sloane_
|
