This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A071007 #9 Jun 14 2015 18:58:06 %S A071007 0,0,0,2,8,40,200,980,5152,28448,162080,979000,6179360,40575392, %T A071007 279199648,1997406320,14825619200,114365751040,912510870272, %U A071007 7521873125408,64045101880960,561615674345600,5067769601121920,47023128008540992,447820056115824128 %N A071007 Number of permutations in the symmetric group S_n such that the maximal cycle has length exactly 3. %C A071007 E.g.f.: exp( x + (x^2)/2 + (x^3)/3 ) - exp( x + (x^2)/2 ). %H A071007 Alois P. Heinz, <a href="/A071007/b071007.txt">Table of n, a(n) for n = 0..250</a> %F A071007 a(n) = A057693(n) - A000085(n). %t A071007 nn=20;Range[0,nn]!CoefficientList[Series[Exp[x+x^2/2+x^3/3]-Exp[x+x^2/2],{x,0,nn}],x] (* _Geoffrey Critzer_, Jan 23 2013 *) %o A071007 (PARI) for(n=0,25,print1(polcoeff(serlaplace(exp(x+x^2/2+x^3/3)-exp(x+x^2/2)),n)",")) %Y A071007 Cf. A057693, A000085, A027617. %Y A071007 Column k=3 of A126074. %K A071007 nonn %O A071007 0,4 %A A071007 Sharon Sela (sharonsela(AT)hotmail.com), May 19 2002 %E A071007 More terms from _Ralf Stephan_, Apr 09 2003