The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A174403

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A174403

Expansion of (1-2*x-2*x^2-sqrt(1-4*x-4*x^2+8*x^3+4*x^4))/(2*x^2).
(history; published version)

#34 by Alois P. Heinz at Wed Aug 02 07:38:11 EDT 2023

STATUS

editing

approved

#33 by Alois P. Heinz at Wed Aug 02 07:38:07 EDT 2023

DATA

1, 2, 7, 22, 76, 268, 977, 3638, 13804, 53164, 207342, 817212, 3250104, 13026744, 52567461, 213394854, 870845260, 3570590668, 14701822370, 60765209876, 252021314536, 1048538259304, 4375013741962, 18302920281148, 76756814078840, 322618359099896, 1358831330368732

STATUS

proposed

editing

#32 by Jean-François Alcover at Wed Aug 02 07:34:21 EDT 2023

STATUS

editing

proposed

#31 by Jean-François Alcover at Wed Aug 02 07:34:11 EDT 2023

MATHEMATICA

nmax = 24;

A[_] = 1;

Do[A[x_] = 1 + 2*x*A[x] + 2*x^2*A[x] + x^2*A[x]^2 + O[x]^(nmax+1) // Normal, {nmax}];

CoefficientList[A[x], x] (* Jean-François Alcover, Aug 02 2023 *)

STATUS

approved

editing

#30 by Peter Luschny at Sat Nov 05 06:12:47 EDT 2022

STATUS

editing

approved

#29 by Peter Luschny at Sat Nov 05 06:12:44 EDT 2022

MAPLE

with(gfun): # Alternative with gfun alone (use gfun:-version() >= 3.91):

STATUS

approved

editing

#28 by Peter Luschny at Fri Nov 04 17:19:47 EDT 2022

STATUS

editing

approved

#27 by Peter Luschny at Fri Nov 04 17:19:39 EDT 2022

MAPLE

# Alternative with gfun alone (use gfun:-version() >= 3.91):

STATUS

approved

editing

#26 by Peter Luschny at Fri Nov 04 17:13:24 EDT 2022

STATUS

proposed

approved

#25 by Georg Fischer at Fri Nov 04 15:54:17 EDT 2022

STATUS

editing

proposed

Discussion

Fri Nov 04

17:13

Peter Luschny: 'rectoproc' does *not* need initial values as you can see by my function FindSeq. Its all in the ogf.