cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-8 of 8 results.

A349563 Dirichlet convolution of right-shifted Catalan numbers with A349452 (Dirichlet inverse of A011782, 2^(n-1)).

Original entry on oeis.org

1, -1, -2, -1, -2, 18, 68, 311, 1182, 4370, 15772, 56754, 203916, 734636, 2658096, 9661591, 35292134, 129511602, 477376556, 1766730706, 6563071700, 24464139348, 91478369336, 343051112482, 1289887370140, 4861912443284, 18367285959072, 69533415236716, 263747683314904, 1002241674463968, 3814985428350480, 14544633872450487
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2021

Keywords

Comments

Dirichlet convolution with A034729 gives A034731.

Links

Crossrefs

Cf. A000108, A011782, A349452, A349564 (Dirichlet inverse).
Cf. also A034729, A034731, A349565, A349567, A349569.

Programs

  • Mathematica
    s[1] = 1; s[n_] := s[n] = -DivisorSum[n, s[#] * 2^(n/# - 1) &, # < n &]; a[n_] := DivisorSum[n, CatalanNumber[# - 1] * s[n/#] &]; Array[a, 32] (* Amiram Eldar, Nov 22 2021 *)
  • PARI
    A000108(n) = (binomial(2*n, n)/(n+1));
A011782(n) = (2^(n-1));
memoA349452 = Map();
A349452(n) = if(1==n,1,my(v); if(mapisdefined(memoA349452,n,&v), v, v = -sumdiv(n,d,if(dA011782(n/d)*A349452(d),0)); mapput(memoA349452,n,v); (v)));
A349563(n) = sumdiv(n,d,A000108(d-1)*A349452(n/d));

Formula

a(n) = Sum_{d|n} A000108(d-1) * A349452(n/d).

A349565 Dirichlet convolution of Fibonacci numbers with A349452 (Dirichlet inverse of A011782, 2^(n-1)).

Original entry on oeis.org

1, -1, -2, -3, -11, -16, -51, -93, -214, -419, -935, -1812, -3863, -7649, -15698, -31443, -63939, -127676, -257963, -516037, -1037298, -2076547, -4165647, -8335716, -16702015, -33421217, -66911078, -133875827, -267921227, -535987784, -1072395555, -2145208557, -4291436930, -8584038291, -17170640199, -34344407256
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2021

Keywords

Comments

Dirichlet convolution of this sequence with A034738 produces A034748.

Links

Crossrefs

Cf. A000045, A011782, A349452, A349566 (Dirichlet inverse).
Cf. also A034738, A034748, A349563, A349567, A349569.

Programs

  • Mathematica
    s[1] = 1; s[n_] := s[n] = -DivisorSum[n, s[#] * 2^(n/# - 1) &, # < n &]; a[n_] := DivisorSum[n, Fibonacci[#] * s[n/#] &]; Array[a, 36] (* Amiram Eldar, Nov 22 2021 *)
  • PARI
    A011782(n) = (2^(n-1));
memoA349452 = Map();
A349452(n) = if(1==n,1,my(v); if(mapisdefined(memoA349452,n,&v), v, v = -sumdiv(n,d,if(dA011782(n/d)*A349452(d),0)); mapput(memoA349452,n,v); (v)));
A349565(n) = sumdiv(n,d,fibonacci(d)*A349452(n/d));

Formula

a(n) = Sum_{d|n} A000045(d) * A349452(n/d).

A349567 Dirichlet convolution of A133494 [3^(n-1)] with A349452 (Dirichlet inverse of A011782, 2^(n-1)).

Original entry on oeis.org

1, 1, 5, 17, 65, 197, 665, 2017, 6285, 19025, 58025, 174565, 527345, 1584737, 4766245, 14311841, 42981185, 128995317, 387158345, 1161697825, 3485732845, 10458138977, 31376865305, 94134428213, 282412758225, 847253996225, 2541798693045, 7625460083185, 22876524019505, 68629830861205, 205890058352825, 617671220125537
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2021

Keywords

Comments

Dirichlet convolution of this sequence with A034738 produces A034754.

Links

Crossrefs

Cf. A011782, A133494, A349452, A349568 (Dirichlet inverse).
Cf. also A034738, A034754, A349563, A349565, A349569.

Programs

  • Mathematica
    s[1] = 1; s[n_] := s[n] = -DivisorSum[n, s[#] * 2^(n/# - 1) &, # < n &]; a[n_] := DivisorSum[n, 3^(# - 1) * s[n/#] &]; Array[a, 32] (* Amiram Eldar, Nov 22 2021 *)
  • PARI
    A011782(n) = (2^(n-1));
memoA349452 = Map();
A349452(n) = if(1==n,1,my(v); if(mapisdefined(memoA349452,n,&v), v, v = -sumdiv(n,d,if(dA011782(n/d)*A349452(d),0)); mapput(memoA349452,n,v); (v)));
A349567(n) = sumdiv(n,d,(3^(d-1)) * A349452(n/d));

Formula

a(n) = Sum_{d|n} 3^(d-1) * A349452(n/d).

A349569 Dirichlet convolution of A000027 (identity function) with A349452 (Dirichlet inverse of A011782, 2^(n-1)).

Original entry on oeis.org

1, 0, -1, -4, -11, -24, -57, -112, -243, -480, -1013, -1964, -4083, -8064, -16309, -32496, -65519, -130440, -262125, -523156, -1048263, -2095104, -4194281, -8383760, -16777015, -33546240, -67107609, -134200860, -268435427, -536835096, -1073741793, -2147417216, -4294962187, -8589803520, -17179867533, -34359463812
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2021

Keywords

Comments

Dirichlet convolution with A034729 gives sigma, A000203, and convolution with A034738 gives A018804.

Links

Crossrefs

Cf. A000027, A011782, A349452, A349570 (Dirichlet inverse).
Cf. also A000203, A018804, A034729, A034738, A349563, A349565, A349567.

Programs

  • Mathematica
    s[1] = 1; s[n_] := s[n] = -DivisorSum[n, s[#]*2^(n/# - 1) &, # < n &]; a[n_] := DivisorSum[n, # * s[n/#] &]; Array[a, 36] (* Amiram Eldar, Nov 22 2021 *)
  • PARI
    A011782(n) = (2^(n-1));
memoA349452 = Map();
A349452(n) = if(1==n,1,my(v); if(mapisdefined(memoA349452,n,&v), v, v = -sumdiv(n,d,if(dA011782(n/d)*A349452(d),0)); mapput(memoA349452,n,v); (v)));
A349569(n) = sumdiv(n,d,d * A349452(n/d));

Formula

a(n) = Sum_{d|n} d * A349452(n/d).

A349450 Dirichlet inverse of right-shifted Catalan numbers [as when started from A000108(0): 1, 1, 2, 5, 14, 42, etc.].

Original entry on oeis.org

1, -1, -2, -4, -14, -38, -132, -420, -1426, -4834, -16796, -58688, -208012, -742636, -2674384, -9693976, -35357670, -129641774, -477638700, -1767253368, -6564119892, -24466233428, -91482563640, -343059494120, -1289904147128, -4861945985428, -18367353066440, -69533549429280, -263747951750360, -1002242211282032
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2021

Keywords

Links

Crossrefs

Cf. A000108, A035010, A035102.
Cf. also A349449, A349451, A349452, A349453, A349564.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = -DivisorSum[n, a[#] * CatalanNumber[n/# - 1] &, # < n &]; Array[a, 30] (* Amiram Eldar, Nov 22 2021 *)
  • PARI
    A000108(n) = binomial(2*n, n)/(n+1);
memoA349450 = Map();
A349450(n) = if(1==n,1,my(v); if(mapisdefined(memoA349450,n,&v), v, v = -sumdiv(n,d,if(dA000108((n/d)-1)*A349450(d),0)); mapput(memoA349450,n,v); (v)));

Formula

a(1) = 1; a(n) = -Sum_{d|n, d < n} A000108((n/d)-1) * a(d).
For n > 1, a(n) = -A035010(n) = A035102(n) - A000108(n-1).
G.f. A(x) satisfies: A(x) = x - Sum_{k>=2} Catalan(k-1) * A(x^k). - Ilya Gutkovskiy, Feb 23 2022
x = Sum_{n>=1} a(n) * C(x^n) where C(x) = (1 - sqrt(1-4*x))/2 is the g.f. of the Catalan numbers (A000108). - Paul D. Hanna, Nov 27 2024

A349451 Dirichlet inverse of Fibonacci numbers, when started from A000045(1): 1, 1, 2, 3, 5, 8, 13, 21, ...

Original entry on oeis.org

1, -1, -2, -2, -5, -4, -13, -16, -30, -45, -89, -122, -233, -351, -590, -944, -1597, -2496, -4181, -6640, -10894, -17533, -28657, -46000, -75000, -120927, -196290, -317018, -514229, -830580, -1346269, -2176288, -3524222, -5699693, -9227335, -14924550, -24157817, -39079807, -63245054, -102320320, -165580141, -267890844
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2021

Keywords

Links

Crossrefs

Cf. A000045.
Cf. also A349449, A349450, A349452, A349453, A349566.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = -DivisorSum[n, a[#] * Fibonacci[n/#] &, # < n &]; Array[a, 42] (* Amiram Eldar, Nov 22 2021 *)
  • PARI
    memoA349451 = Map();
A349451(n) = if(1==n,1,my(v); if(mapisdefined(memoA349451,n,&v), v, v = -sumdiv(n,d,if(dA349451(d),0)); mapput(memoA349451,n,v); (v)));

Formula

a(1) = 1; a(n) = -Sum_{d|n, d < n} A000045(n/d) * a(d).
G.f. A(x) satisfies: A(x) = x - Sum_{k>=2} Fibonacci(k) * A(x^k). - Ilya Gutkovskiy, Feb 23 2022

A349453 Dirichlet inverse of A133494, 3^(n-1).

Original entry on oeis.org

1, -3, -9, -18, -81, -189, -729, -2052, -6480, -19197, -59049, -175446, -531441, -1589949, -4781511, -14335704, -43046721, -129097152, -387420489, -1162141182, -3486771279, -10459998909, -31381059609, -94142073420, -282429529920, -847285420797, -2541865710960, -7625587899366, -22876792454961, -68630348286531
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2021

Keywords

Links

Crossrefs

Cf. A133494.
Cf. also A349449, A349450, A349451, A349452, A349568.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = -DivisorSum[n, a[#] * 3^(n/# - 1) &, # < n &]; Array[a, 30] (* Amiram Eldar, Nov 22 2021 *)
  • PARI
    A133494(n) = max(1, 3^(n-1));
memoA349453 = Map();
A349453(n) = if(1==n,1,my(v); if(mapisdefined(memoA349453,n,&v), v, v = -sumdiv(n,d,if(dA133494(n/d)*A349453(d),0)); mapput(memoA349453,n,v); (v)));

Formula

a(1) = 1; a(n) = -Sum_{d|n, d < n} A133494(n/d) * a(d).
G.f. A(x) satisfies: A(x) = x - Sum_{k>=2} 3^(k-1) * A(x^k). - Ilya Gutkovskiy, Feb 23 2022

A349564 Dirichlet convolution of A011782 [2^(n-1)] with A349450 [Dirichlet inverse of right-shifted Catalan numbers].

Original entry on oeis.org

1, 1, 2, 2, 2, -14, -68, -308, -1178, -4366, -15772, -56780, -203916, -734772, -2658088, -9662208, -35292134, -129514026, -477376556, -1766739436, -6563071972, -24464170892, -91478369336, -343051227304, -1289887370136, -4861912851116, -18367285963792, -69533416706328, -263747683314904, -1002241679797688
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2021

Keywords

Comments

Dirichlet convolution with A034731 gives A034729.

Links

Crossrefs

Cf. A011782, A349450.
Cf. A000108, A011782, A349452, A349563 (Dirichlet inverse).
Cf. also A034729, A034731, A349566, A349568.

Programs

  • Mathematica
    s[1] = 1; s[n_] := s[n] = -DivisorSum[n, s[#] * CatalanNumber[n/# - 1] &, # < n &]; a[n_] := DivisorSum[n, 2^(# - 1) * s[n/#] &]; Array[a, 30] (* Amiram Eldar, Nov 22 2021 *)
  • PARI
    A000108(n) = (binomial(2*n, n)/(n+1));
memoA349450 = Map();
A349450(n) = if(1==n,1,my(v); if(mapisdefined(memoA349450,n,&v), v, v = -sumdiv(n,d,if(dA000108((n/d)-1)*A349450(d),0)); mapput(memoA349450,n,v); (v)));
A349564(n) = sumdiv(n,d,2^(d-1)*A349450(n/d));

Formula

a(n) = Sum_{d|n} 2^(d-1) * A349450(n/d).
Showing 1-8 of 8 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.