login
Apply inverse of "INVERT" transform to A007097, i.e.; the coefficients of the series 1/(1 + 2x + 3x^2 + 5x^3 + 11x^4 + 31x^5 + 127x^6 + 709x^7 ... ).
2

%I #4 Jan 09 2024 12:06:25

%S 1,-2,1,-1,-2,-7,-51,-342,-3165,-34781,-465842,-7428379,-139065247,

%T -3014260732,-74720908617,-2095541497991,-65859561109214,

%U -2300344376478515

%N Apply inverse of "INVERT" transform to A007097, i.e.; the coefficients of the series 1/(1 + 2x + 3x^2 + 5x^3 + 11x^4 + 31x^5 + 127x^6 + 709x^7 ... ).

%t CoefficientList[ Series[ 1/(1 + Sum[ NestList[ Prime, 1, n ] [ [ -1 ] ]*x^n, {n, 1, 17} ] ), {x, 0, 17} ], x ]

%K sign

%O 0,2

%A _Robert G. Wilson v_, Dec 11 2000