%I #45 Sep 08 2022 08:45:31
%S 1,4,9,21,49,113,257,577,1281,2817,6145,13313,28673,61441,131073,
%T 278529,589825,1245185,2621441,5505025,11534337,24117249,50331649,
%U 104857601,218103809,452984833,939524097,1946157057,4026531841
%N A132749 * [1, 2, 3, ...] = A007318 * A065190.
%C Equals double binomial transform of [1, 2, -3, 7, -15, 31, -63, 127, -255, ...]. - _Gary W. Adamson_, Jul 23 2008
%C For n >= 1, also the number of cliques in the n-hypercube graph Q_n. - _Eric W. Weisstein_, Mar 31 2017
%H Vincenzo Librandi, <a href="/A132750/b132750.txt">Table of n, a(n) for n = 0..1000</a>
%H V. Jelinek, T. Mansour, M. Shattuck, <a href="http://dx.doi.org/10.1016/j.aam.2012.09.002">On multiple pattern avoiding set partitions</a>, Adv. Appl. Math. 50 (2) (2013) 292-326, Lemma 4.21 (sequence starting 1, 1, 2, 4, 9, 21, .... with offset 0).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Clique.html">Clique</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HypercubeGraph.html">Hypercube Graph</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (5,-8,4).
%F A132749 as an infinite lower triangular matrix * vector [1, 2, 3, ...]. Binomial transform of A065190 (with an incorrect offset)
%F Row sums of triangle A135224. - _Gary W. Adamson_, Nov 23 2007
%F G.f.: (1-x-3*x^2+4*x^3)/((1-x)*(1-2*x)^2). - _Colin Barker_, Aug 09 2012
%F a(n) = n*2^(n-1) + 2^n + 1 - 0^n. - _Tim Smith_, Sep 25 2014
%F a(n) = 5*a(n-1) - 8*a(n-2) + 4*a(n-3). - _Wesley Ivan Hurt_, Sep 26 2014
%F E.g.f.: -1 + exp(x) + (1+x)*exp(2*x). - _G. C. Greubel_, Nov 20 2019
%e a(3) = 21 = (1, 3, 3, 1) dot (1, 3, 2, 5) = (1 + 9 + 6 + 5) = 21; where A065190 = (1, 3, 2, 5, 4, 7, 6, 9, ...).
%p A132750:=n->n*2^(n-1)+2^n+1-0^n: seq(A132750(n), n=0..30); # _Wesley Ivan Hurt_, Sep 26 2014
%t Join[{1}, Table[n*2^(n-1) +2^n +1, {n, 30}]] (* _Wesley Ivan Hurt_, Sep 26 2014 *)
%t Join[{1}, LinearRecurrence[{5,-8,4}, {4,9,21}, 30]] (* _Vincenzo Librandi_, Apr 01 2017 *)
%o (Magma) [n*2^(n-1) + 2^n + 1 - 0^n : n in [0..30]]; // _Wesley Ivan Hurt_, Sep 26 2014
%o (PARI) vector(31, n, if(n==1, 1, (n-1)*2^(n-2) + 2^(n-1) + 1)) \\ _G. C. Greubel_, Nov 20 2019
%o (Sage) [1]+[n*2^(n-1) + 2^n + 1 for n in (1..30)] # _G. C. Greubel_, Nov 20 2019
%o (GAP) Concatenation([1], List([1..30], n-> n*2^(n-1) + 2^n + 1 )); # _G. C. Greubel_, Nov 20 2019
%Y Cf. A065190, A132749, A135224.
%K nonn,easy
%O 0,2
%A _Gary W. Adamson_, Aug 28 2007