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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A345973 G.f.: x + x^2 / Product_{n>=1} (1 - a(n)*x^n). 2
 1, 1, 1, 2, 3, 6, 10, 20, 36, 73, 138, 281, 549, 1136, 2263, 4705, 9553, 20015, 41096, 86643, 179638, 380701, 795892, 1693003, 3562217, 7612680, 16099538, 34505797, 73345831, 157678081, 336419942, 725236780, 1552662599, 3354979195, 7205601904, 15600414855, 33594465666 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,4 LINKS David Callan, A Combinatorial Interpretation for Sequence A345973 in OEIS, arXiv:2108.04969 [math.CO], 2021. FORMULA G.f.: x + x^2 * exp(Sum_{n>=1} Sum_{k>=1} a(n)^k * x^(n*k) / k). a(n+2) = (1/n) * Sum_{k=1..n} ( Sum_{d|k} d * a(d)^(k/d) ) * a(n-k+2). MAPLE a:= proc(n) option remember; `if`(n<3, 1, add(a(n-k)*add(d* a(d)^(k/d), d=numtheory[divisors](k)), k=1..n-2)/(n-2)) end: seq(a(n), n=1..37); # Alois P. Heinz, Jul 01 2021 MATHEMATICA a[n_] := a[n] = SeriesCoefficient[x + x^2/Product[(1 - a[k] x^k), {k, 1, n - 1}], {x, 0, n}]; Table[a[n], {n, 1, 37}] a[1] = a[2] = 1; a[n_] := a[n] = (1/(n - 2)) Sum[Sum[d a[d]^(k/d), {d, Divisors[k]}] a[n - k], {k, 1, n - 2}]; Table[a[n], {n, 1, 37}] CROSSREFS Cf. A007562, A032307, A093637. Sequence in context: A329699 A002215 A007562 * A329702 A222855 A171682 Adjacent sequences: A345970 A345971 A345972 * A345974 A345975 A345976 KEYWORD nonn AUTHOR Ilya Gutkovskiy, Jun 30 2021 STATUS approved

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

Last modified February 3 18:43 EST 2023. Contains 360044 sequences. (Running on oeis4.)