OFFSET
0,2
COMMENTS
Also the number of partitions of {1..(13n)} that are invariant under a permutation consisting of n 13-cycles. - Danny Rorabaugh, Oct 29 2015
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
T. S. Motzkin, Sorting numbers for cylinders and other classification numbers, in Combinatorics, Proc. Symp. Pure Math. 19, AMS, 1971, pp. 167-176. [Annotated, scanned copy]
OEIS Wiki, Sorting numbers
MATHEMATICA
u[0, j_]: = 1; u[k_, j_]: = u[k, j] = Sum[Binomial[k-1, i-1]Plus@@(u[k-i, j]#^(i-1)&/@Divisors[j]), {i, k}]; Table[u[n, 13], {n, 0, 30}] (* Vincenzo Librandi, Dec 12 2012, after Wouter Meeussen in similar sequences *)
mx = 16; p = 13; Range[0, mx]! CoefficientList[ Series[ Exp[ (Exp[p*x] - p - 1)/p + Exp[x]], {x, 0, mx}], x] (* Robert G. Wilson v, Dec 12 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Jul 11 2008
STATUS
approved