login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A058575 The sequence S defined in A058562. 3
0, 0, 1, 7, 81, 1311, 27273, 693351, 20830113, 722035503, 28364200569, 1245313236663, 60429110073489, 3211572892464639, 185523138537151977, 11574425593731913479, 775591270444009771137, 55555665263291738684367, 4236182199641241492147801 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

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

FORMULA

E.g.f.: -(1/2)*LambertW(-2/3*exp(-2/3 + 1/3*x)) - 1/3 - x/3. - Vladeta Jovovic, Jun 25 2007

a(n) ~ sqrt(log(3/2)-1/3) * n^(n-1) / (2 * exp(n) * (log(27/8)-1)^n). - Vaclav Kotesovec, Jul 09 2013

MAPLE

spec := [ S, {N=Union(Z, S, P, Q), S=Set(Union(Z, P, Q), card>=2), P=Set(Union(Z, S, Q), card>=2), Q=Set(Union(Z, S, P), card>=2)}, labeled ]; [seq(combstruct[count](spec, size=n), n=0..40)]; # N=A058562, S=A058575

spec:=[S, {S=Set(Union(Z, S, S), card>=2)}, labeled]; [seq(combstruct[count](spec, size=n), n=0..20)]; # Vladeta Jovovic, Jun 25 2007

MATHEMATICA

max = 18; se = Series[ -1/2*ProductLog[ -2/3*Exp[-2/3 + 1/3*x]] - 1/3 - x/3 , {x, 0, max}]; Join[{0, 0}, (CoefficientList[se, x] // DeleteCases[#, 0] &) ]* Range[0, max]! (* Jean-Fran├žois Alcover, Jun 24 2013, after Vladeta Jovovic *)

CROSSREFS

Cf. A058562.

Sequence in context: A088735 A339710 A112119 * A285062 A253265 A338684

Adjacent sequences:  A058572 A058573 A058574 * A058576 A058577 A058578

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Dec 26 2000

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 25 03:53 EDT 2021. Contains 346283 sequences. (Running on oeis4.)