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 A178249 #18 Sep 08 2016 10:19:55
%S A178249 1,1,1,1,2,1,1,6,2,1,1,14,8,2,1,1,37,27,8,2,1,1,96,94,30,8,2,1,1,270,
%T A178249 338,114,30,8,2,1,1,777,1237,446,118,30,8,2,1,1,2370,4684,1809,473,
%U A178249 118,30,8,2,1,1,7450,18142,7502,1964,478,118,30,8,2,1,1,24485,72524,32093,8414,1998,478,118,30,8,2,1
%N A178249 Table T(n,k) counts the involutions of n with longest increasing contiguous subsequence of length k.
%C A178249 Reverse of rows converges to 1,2,8,30,118,478,2004,8666,..
%e A178249 T(4,2) = 6 because the 6 involutions with longest increasing contiguous subsequence lengths equal to 2 are: 1324, 1432, 2143, 3214, 3412, 4231.
%e A178249 Table starts:
%e A178249 1;
%e A178249 1, 1;
%e A178249 1, 2, 1;
%e A178249 1, 6, 2, 1;
%e A178249 1, 14, 8, 2, 1;
%e A178249 1, 37, 27, 8, 2, 1;
%e A178249 1, 96, 94, 30, 8, 2, 1;
%e A178249 1, 270, 338, 114, 30, 8, 2, 1;
%t A178249 (* first do *)
%t A178249 Needs["Combinatorica`"]
%t A178249 (* then *)
%t A178249 maxISS[perm_List] := Max[0, (Max @@ (Length[#1]*Sign[First[#1]] & ) /@ Split[Sign[Rest[#1] - Drop[#1, -1]]] & )[perm]];classMaxISS[par_?PartitionQ]:=Count[ maxISS/@( TableauxToPermutation[FirstLexicographicTableau[par], #]&/@Tableaux[par] ) ,#]&/@(-1+Range[ Tr[par] ]);
%t A178249 Table[Apply[Plus,classMaxISS/@Partitions[n]],{n,2,6}];
%Y A178249 Cf. A008304; row sums are A000085; A047884 removes the contiguity requirement.
%K A178249 nonn,tabl
%O A178249 1,5
%A A178249 _Wouter Meeussen_, Dec 20 2010
%E A178249 Definition corrected by _Wouter Meeussen_, Dec 22 2010