OFFSET
1,2
FORMULA
Empirical g.f.: x*(32*x^3+16*x^2+8*x+1) / ((x-1)*(8*x^2-1)*(8*x^2+1)). - Colin Barker, Sep 01 2013
MATHEMATICA
a = {}; s = 0; For[n = 1, n < 41, n++, If[Length[Intersection[{Mod[n, 6]}, {0, 1, 4, 5}]] > 0, s = s + 2^(n - 1); AppendTo[a, s]]]; a
CROSSREFS
Cf. A047260.
KEYWORD
nonn,less
AUTHOR
Artur Jasinski, Jan 27 2006
EXTENSIONS
Edited by Stefan Steinerberger, Jul 23 2007
STATUS
approved