%I #12 Jul 03 2016 00:16:57
%S 30,93,315,1143,4335,16863,66495,264063,1052415,4201983,16792575,
%T 67139583,268496895,1073864703,4295213055,17180360703,68720459775,
%U 274879873023,1099515559935,4398054375423,17592201773055,70368775634943,281475039625215
%N a(n) = (2^(n+4)-1)*(2^n+1).
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (7, -14, 8).
%F a(n) = 7*a(n-1) -14*a(n-2) +8*a(n-3). G.f.: 3*(10-39*x+28*x^2)/((1-x) * (2*x-1) * (4*x-1)).
%F a(n) = A000225(n+4) * A000051(n). - _Michel Marcus_, Jul 17 2013
%t Table[(2^(n+4)-1)(2^n+1),{n,0,30}] (* or *) LinearRecurrence[{7,-14,8},{30,93,315},30] (* _Harvey P. Dale_, Dec 11 2011 *)
%o (Quick Basic) DO: DIM x AS LONG: n = 0: x = ((2 ^ (n + 2)) - 1) * ((2 ^ (n - 2)) + 1): PRINT x: n = n + 1: LOOP
%o (PARI) a(n)=(2^(n+4)-1)*(2^n+1) \\ _Charles R Greathouse IV_, Jul 03 2016
%K nonn,easy
%O 0,1
%A Boris Hostnik (megpplus(AT)siol.net), Sep 04 2009
%E Fractional values removed by _R. J. Mathar_, Sep 20 2009
|