OFFSET
1,3
REFERENCES
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..120
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 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]
N. J. A. Sloane, Transforms
MAPLE
stirtr:= proc(p)
proc(n) add(p(k)*Stirling2(n, k), k=0..n) end
end:
a:= proc(n) option remember; `if`(n<2, 1, aa(n-1)) end:
aa:= (stirtr@@2)(a):
seq(a(n), n=1..25); # Alois P. Heinz, Jun 22 2012
MATHEMATICA
stirtr[p_] := Function[{n}, Sum[p[k]*StirlingS2[n, k], {k, 0, n}]]; a[n_] := a[n] = If[n < 2, 1, aa[n-1]]; aa := stirtr[stirtr[a]]; Table[a[n], {n, 1, 25}] (* Jean-François Alcover, Oct 30 2013, translated from Alois P. Heinz's Maple program *)
CROSSREFS
KEYWORD
nonn,nice,eigen
AUTHOR
STATUS
approved