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,3

Links

Table of n, a(n) for n=0..25.

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

Formula

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

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 *)

Crossrefs

Sequence in context: A116486 A179609 A241690 * A146534 A180888 A296400

Adjacent sequences: A141314 A141315 A141316 * A141318 A141319 A141320

Keyword

nonn

Author

Paul Curtz, Aug 02 2008

Extensions

Extended by R. J. Mathar, Aug 09 2008

Status

approved