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 A122932 #7 Mar 15 2015 01:24:36
%S A122932 0,0,0,2,10,44,168,636,2364,8984,34672,138104,564408,2382288,10333152,
%T A122932 46173968,211733776,997182752,4809439296,23758139808,119951644320,
%U A122932 618882541760,3257839688320,17492182188992,95680426983360
%N A122932 a(n) = A000085(n) - A000079(n-1).
%C A122932 Also sums values in A117506 but not in A007318.
%F A122932 a(n) = A000085(n) - A000079(n) for n>0.
%e A122932 Row five of A117506 is 1 5 9 5 10 16 5 10 9 5 1.
%e A122932 Row five of A007318 is 1 5 10 10 5 1.
%e A122932 So included values are 9 5 16 5 9;
%e A122932 therefore a(5) = 44 = 76 - 32.
%t A122932 Table[Sum[(2k)!/k!/2^k Binomial[n, 2k], {k, 0, n/2}] - 2^(n - 1) // FullSimplify, {n, 26}] (* _Robert G. Wilson v_, Sep 27 2006 *) (* or *)
%t A122932 Table[HypergeometricU[ -(n/2), 1/2, -(1/2)]/(-(1/2))^(-(-n/2)) - 2^(n - 1), {n, 26}] (* _Robert G. Wilson v_, Sep 27 2006 *) (* or *)
%t A122932 (* first do *) Needs["DiscreteMath`Combinatorica`"] (* then *) Table[NumberOfTableaux[M[Star[n+1]]] - 2^(n - 1), {n, 26}] (* _Robert G. Wilson v_, Sep 27 2006 *)
%Y A122932 Cf. A000079, A000085, A059797, A067924, A117506.
%K A122932 easy,nonn
%O A122932 1,4
%A A122932 _Alford Arnold_, Sep 22 2006
%E A122932 More terms from _Robert G. Wilson v_, Sep 27 2006