OFFSET
1,2
FORMULA
MATHEMATICA
b[1]=1; b[n_]:=b[n] = b[n-1] + Sum[b[i], {i, 1, n-1}]/(n-1); Table[b[n], {n, 1, 50}] // Floor
Clear[b]; RecurrenceTable[{b[n] == 2*b[n-1] - (1-1/(n-1))*b[n-2], b[1]==1, b[2]==2}, b, {n, 1, 50}] // Floor
Table[HypergeometricPFQ[{n}, {1}, 1]/E, {n, 1, 50}] // Floor
Rest[CoefficientList[Series[x*E^(x/(1-x))/(1-x), {x, 0, 50}], x]] // Floor
nmax = 50; Rest[CoefficientList[Series[Integrate[Exp[t]*BesselI[0, 2*Sqrt[t]], {t, 0, x}], {x, 0, nmax}], x] * Range[0, nmax]!] // Floor
Table[LaguerreL[n-1, -1], {n, 1, 50}] // Floor
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Oct 12 2024
STATUS
approved