login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A186240 G.f. A(x) defined by A(x) = 1 +x*A(x) +x^2*A(x)^2 +3*x^3*A(x)^3. 0
1, 1, 2, 7, 21, 66, 228, 799, 2843, 10357, 38278, 143012, 539980, 2056848, 7892496, 30483351, 118416903, 462348219, 1813410078, 7141608015, 28229040165, 111956307486, 445374729396, 1776704142348, 7105896093588, 28487216564476, 114454156300136, 460781265916312 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

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

Vladimir Kruchinin, D. V. Kruchinin, Composita and their properties, arXiv:1103.2582 [math.CO], 2011-2013.

FORMULA

a(n) = 1/n*sum(j=0..n, binomial(n,j)*sum(i=j..n+j-1, binomial(j,i-j)*binomial(n-j,3*j-n-i-1)*3^(3*j-n-i-1))), n>0

Conjecture: 6*(2*n+3)*(n+1)*a(n) +(277*n^2-191*n-162)*a(n-1) +6*(-155*n^2+305*n-126)*a(n-2) -4*(181*n-195)*(n-2)*a(n-3) -5304*(n-2)*(n-3)*a(n-4)=0. - R. J. Mathar, Sep 27 2013

MATHEMATICA

m = maxExponent = 20;

A[_] = 0; Do[A[x_] = 1 + x A[x] + x^2 A[x]^2 + 3 x^3 A[x]^3 + O[x]^m, {m}];

CoefficientList[A[x], x] (* Jean-Fran├žois Alcover, Aug 08 2018 *)

CROSSREFS

Sequence in context: A218836 A052911 A126133 * A274203 A220726 A127540

Adjacent sequences:  A186237 A186238 A186239 * A186241 A186242 A186243

KEYWORD

nonn

AUTHOR

Vladimir Kruchinin, Feb 15 2011

EXTENSIONS

Typo in definition corrected by R. J. Mathar, Sep 27 2013

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 October 23 17:32 EDT 2019. Contains 328373 sequences. (Running on oeis4.)