|
%I #36 Feb 26 2018 08:07:29
%S 2,15,52,129,266,487,820,1297,1954,2831,3972,5425,7242,9479,12196,
%T 15457,19330,23887,29204,35361,42442,50535,59732,70129,81826,94927,
%U 109540,125777,143754,163591,185412,209345,235522,264079,295156,328897,365450,404967,447604
%N Number of permutations that are 2 "block reversals" away from 12...n.
%H Sean A. Irvine, <a href="/A007972/b007972.txt">Table of n, a(n) for n = 3..100</a>
%F a(n) = (n^4+6*n^3+11*n^2-12*n+6)/6 (conjectured). - _Giovanni Resta_, Jun 08 2015
%F Conjectured g.f.: (-2-5x+3x^2+x^3-x^4)/(-1+x)^5. - _Benedict W. J. Irwin_, Feb 20 2016
%t a[n_] := Block[{s, allb, r = Flatten[Table[{i, j}, {i, n}, {j, i + 1, n}], 1]}, allb[pp_] := Union@ Table[ s=pp; s[[Range @@ e]] = Reverse[ s[[ Range @@ e]]]; s, {e, r}]; Length[Flatten[allb /@ allb[Range[n]], 1] // Union] - 1]; a /@ Range[3,15] (* _Giovanni Resta_, Jun 08 2015 *)
%Y Cf. A007973, A007974, A007975.
%Y Column k=2 of A300003.
%K nonn
%O 3,1
%A _J. H. Conway_
%E a(9)-a(41) from _Giovanni Resta_, Jun 08 2015
|
