A364703 - OEIS

A364703

Numerators of coefficients in expansion of sqrt( 1 + x + 2*x^2 + 3*x^3 + 4*x^4 + ... ).

1, 1, 7, 17, 139, 263, 995, 1969, 32371, 66635, 268121, 527959, 4146719, 8259235, 33398491, 67666673, 2171753923, 4309377779, 17069564957, 34059684283, 274173644357, 552586858969, 2214430477093, 4407001803383, 70069816438007, 139923827220319, 562011390816205, 1129932221061107

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

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

EXAMPLE

The coefficients are 1, 1/2, 7/8, 17/16, 139/128, 263/256, 995/1024, 1969/2048, 32371/32768, 66635/65536, ...

MATHEMATICA

nmax = 27; CoefficientList[Series[Sqrt[1 + x/(1 - x)^2], {x, 0, nmax}], x] // Numerator

PROG

(PARI) my(x='x+O('x^30)); apply(numerator, Vec(sqrt(1 + x/(1 - x)^2))) \\ Michel Marcus, Aug 04 2023

CROSSREFS