A346048 -id:A346048 - cp's OEIS frontend

A346049 a(0) = ... = a(4) = 1; a(n) = Sum_{k=1..n-5} a(k) * a(n-k-5).

1, 1, 1, 1, 1, 0, 1, 2, 3, 4, 4, 4, 6, 10, 16, 24, 30, 37, 50, 74, 116, 175, 245, 332, 456, 654, 981, 1471, 2146, 3056, 4320, 6203, 9119, 13540, 19986, 29134, 42113, 61047, 89398, 132021, 195272, 287547, 421235, 616418, 905161, 1335648, 1976407, 2922982, 4313230

Offset: 0

Ilya Gutkovskiy, Jul 02 2021

nonn

G. C. Greubel, Table of n, a(n) for n = 0..1000

Cf. A025250, A307972, A343305, A346047, A346048.

a[0] = a[1] = a[2] = a[3] = a[4] = 1; a[n_] := a[n] = Sum[a[k] a[n - k - 5], {k, 1, n - 5}]; Table[a[n], {n, 0, 48}]
nmax = 48; A[] = 0; Do[A[x] = 1 + x + x^2 + x^3 + x^4 + x^5 A[x] (A[x] - 1) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]

@CachedFunction
def a(n): # a = A346049
    if (n<5): return 1
    else: return sum(a(k)*a(n-k-5) for k in range(1,n-4))
[a(n) for n in range(51)] # G. C. Greubel, Nov 28 2022

G.f. A(x) satisfies: A(x) = 1 + x + x^2 + x^3 + x^4 + x^5 * A(x) * (A(x) - 1).

A346047 a(0) = a(1) = a(2) = 1; a(n) = Sum_{k=1..n-3} a(k) * a(n-k-3).

Original entry on oeis.org

1, 1, 1, 0, 1, 2, 2, 2, 4, 8, 10, 13, 24, 42, 61, 90, 156, 265, 410, 646, 1093, 1834, 2948, 4789, 8050, 13475, 22129, 36570, 61435, 103039, 171384, 286156, 481691, 810502, 1359194, 2284789, 3856974, 6512001, 10982193, 18550116, 31406597, 53194727, 90082902

Offset: 0

Ilya Gutkovskiy, Jul 02 2021

nonn

Cf. A025250, A050253, A307970, A343304, A346048, A346049.

a[0] = a[1] = a[2] = 1; a[n_] := a[n] = Sum[a[k] a[n - k - 3], {k, 1, n - 3}]; Table[a[n], {n, 0, 42}]
nmax = 42; A[] = 0; Do[A[x] = 1 + x + x^2 + x^3 A[x] (A[x] - 1) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]

G.f. A(x) satisfies: A(x) = 1 + x + x^2 + x^3 * A(x) * (A(x) - 1).

a(n) ~ sqrt((3 - 3*r^3 - 4*r^4 - 2*r^5)/(8*Pi)) / (n^(3/2) * r^(n+3)), where r = 0.5701490701528437821032230160646366013461622472504286581627... is the root of the equation 1 - 2*r^3 - 4*r^4 - 4*r^5 + r^6 = 0. - Vaclav Kotesovec, Jul 03 2021

A346076 a(n) = 1 + Sum_{k=1..n-4} a(k) * a(n-k-4).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 3, 4, 5, 7, 11, 17, 25, 36, 54, 84, 131, 201, 307, 475, 745, 1172, 1837, 2878, 4531, 7173, 11381, 18057, 28669, 45624, 72796, 116336, 186066, 297865, 477505, 766621, 1232214, 1982292, 3191693, 5143974, 8298640, 13399691, 21652705, 35014373, 56663700

Offset: 0

Ilya Gutkovskiy, Jul 04 2021

nonn

G. C. Greubel, Table of n, a(n) for n = 0..1000

Cf. A105633, A217282, A307971, A343305, A346048, A346073, A346075, A346077.

a[n_] := a[n] = 1 + Sum[a[k] a[n - k - 4], {k, 1, n - 4}]; Table[a[n], {n, 0, 44}]
nmax = 44; A[] = 0; Do[A[x] = 1/(1 - x) + x^4 A[x] (A[x] - 1) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]

@CachedFunction
def a(n): # a = A346076
    if (n<5): return 1
    else: return 1 + sum(a(k)*a(n-k-4) for k in range(1,n-3))
[a(n) for n in range(51)] # G. C. Greubel, Nov 27 2022

G.f. A(x) satisfies: A(x) = 1 / (1 - x) + x^4 * A(x) * (A(x) - 1).

cp's OEIS Frontend

A346049 a(0) = ... = a(4) = 1; a(n) = Sum_{k=1..n-5} a(k) * a(n-k-5).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

SageMath

Formula

A346047 a(0) = a(1) = a(2) = 1; a(n) = Sum_{k=1..n-3} a(k) * a(n-k-3).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A346076 a(n) = 1 + Sum_{k=1..n-4} a(k) * a(n-k-4).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

SageMath

Formula