A318293 E.g.f. satisfies y'' + y' + x^3*y = 0 with y(0)=0, y'(0)=1.

0, 1, -1, 1, -1, 1, -25, 85, -205, 415, -751, 13351, -74551, 277501, -825301, 2114017, -31272601, 234796831, -1167200191, 4534428271, -14884655503, 196703557717, -1802713881757, 11116971405937, -53015088629977, 211179438004855, -2599947442920103, 27477399011166703, -200902152943783903

Offset

0,7

Links

Robert Israel, Table of n, a(n) for n = 0..690

Formula

(n+3)*(n+2)*(n+1)*a(n) + a(n+4) + a(n+5) = 0.

Maple

f:= gfun:-rectoproc({(n+3)*(n+2)*(n+1)*a(n)+a(n+4)+a(n+5)=0, a(0) = 0, a(1) = 1, a(2) = -1, a(3) = 1, a(4) = -1}, a(n), remember):
map(f, [$0..30]);

Mathematica

m = 30; egf = DifferentialRoot[Function[{y, x}, {y''[x] + y'[x] + x^3*y[x] == 0, y[0] == 0, y'[0] == 1}]]; CoefficientList[egf[x] + O[x]^m, x]* Range[0, m-1]! (* Jean-François Alcover, Apr 27 2019 *)

Crossrefs

Cf. A318237, A318355, A318356.

Sequence in context: A166080 A371016 A081272 * A027026 A251195 A087240

Adjacent sequences: A318290 A318291 A318292 * A318294 A318295 A318296

Keyword

sign

Author

Robert Israel, Aug 23 2018

Status

approved