A141317 a(n) = A000244(n) - A010684(n).

0, 0, 8, 24, 80, 240, 728, 2184, 6560, 19680, 59048, 177144, 531440, 1594320, 4782968, 14348904, 43046720, 129140160, 387420488, 1162261464, 3486784400, 10460353200, 31381059608, 94143178824, 282429536480, 847288609440

Offset: 0

Author

Paul Curtz, Aug 02 2008

Keywords

• nonn

Links

• Index entries for linear recurrences with constant coefficients, signature (3,1,-3).

Programs

Maple

A010684 := proc(n) 1+2*(n mod 2) ; end: A141317 := proc(n) 3^n-A010684(n) ; end: for n from 0 to 50 do printf("%d,",A141317(n)) ; od: # R. J. Mathar, Aug 09 2008

Mathematica

CoefficientList[Series[8x^2/((1-3x)(1-x)(1+x)),{x,0,30}],x] (* Harvey P. Dale, Sep 16 2019 *)

Formula

O.g.f.: 8*x^2/((1-3*x)*(1-x)*(1+x)). - R. J. Mathar, Aug 09 2008

Extensions

Extended by R. J. Mathar, Aug 09 2008