OFFSET
0,3
COMMENTS
The Stirling-Frobenius cycle numbers are defined in A225470.
LINKS
Peter Luschny, Generalized Eulerian polynomials.
Peter Luschny, The Stirling-Frobenius numbers.
FORMULA
EXAMPLE
[n\k][ 0, 1, 2, 3, 4, 5]
[0] 1,
[1] 1, 2,
[2] 3, 8, 8,
[3] 15, 46, 72, 48,
[4] 105, 352, 688, 768, 384,
[5] 945, 3378, 7600, 11040, 9600, 3840.
MATHEMATICA
SFCSO[n_, k_, m_] := SFCSO[n, k, m] = If[k>n || k<0, 0, If[n == 0 && k == 0, 1, m*k*SFCSO[n-1, k-1, m] + (m*n-1)*SFCSO[n-1, k, m]]]; Table[SFCSO[n, k, 2], {n, 0, 8}, {k, 0, n}] // Flatten (* Jean-François Alcover, Feb 05 2014, translated from Sage *)
PROG
(Sage)
@CachedFunction
def SF_CSO(n, k, m):
if k > n or k < 0 : return 0
if n == 0 and k == 0: return 1
return m*k*SF_CSO(n-1, k-1, m) + (m*n-1)*SF_CSO(n-1, k, m)
for n in (0..8): [SF_CSO(n, k, 2) for k in (0..n)]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, May 19 2013
STATUS
approved