A113828 a(n) = Sum[2^(A047260(i)-1), {i,1,n}].
1, 9, 25, 57, 121, 633, 1657, 3705, 7801, 40569, 106105, 237177, 499321, 2596473, 6790777, 15179385, 31956601, 166174329, 434609785, 971480697, 2045222521, 10635157113, 27815026297, 62174764665, 130894241401, 680650055289
Offset: 1
Examples
a(2) = 2^(A047260(1)-1) + 2^(A047260(2)-1) = 2^0 + 2^3 = 9
Crossrefs
Cf. A047260.
Programs
-
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
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
Extensions
Edited by Stefan Steinerberger, Jul 23 2007
Comments