A288233 Coefficients in the expansion of 1/([r]-[2*r]*x+[3*r]*x^2-...); [ ]=floor, r=sqrt(8/3).

1, 3, 5, 9, 17, 30, 52, 91, 160, 281, 494, 871, 1537, 2711, 4782, 8437, 14885, 26258, 46319, 81706, 144126, 254229, 448442, 791021, 1395308, 2461230, 4341448, 7658035, 13508286, 23827758, 42030652, 74139404, 130777206, 230682689, 406909610, 717762700

Offset

0,2

Comments

Conjecture: the sequence is strictly increasing.

Links

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

Example

G.f.: 1/(Sum_{k>=0} [(k+1)*r]*(-x)^k), where r = sqrt(8/3) and [ ] = floor.

Mathematica

r = Sqrt[8/3];
u = 1000; (* # initial terms from given series *)
v = 100;   (* # coefficients in reciprocal series *)
CoefficientList[Series[1/Sum[Floor[r*(k + 1)] (-x)^k, {k, 0, u}], {x, 0, v}], x]

Crossrefs

Cf. A078140 (includes guide to related sequences).

Sequence in context: A288236 A288237 A288234 * A288232 A289261 A357549

Adjacent sequences: A288230 A288231 A288232 * A288234 A288235 A288236

Keyword

nonn,easy,changed

Author

Clark Kimberling, Jul 11 2017

Status

approved