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.

User: Sithembele Nkonkobe

Sithembele Nkonkobe's wiki page.

Sithembele Nkonkobe has authored 1 sequences.

A259533 Number of restricted barred preferential arrangements of an n-set having 3 bars in which 3 fixed sections are restricted sections and 1 section is a free section.

Original entry on oeis.org

1, 4, 18, 94, 582, 4294, 37398, 378214, 4366422, 56697574, 817979478, 12981058534, 224732536662, 4214866778854, 85130743747158, 1842265527790054, 42525237455785302, 1042966136232956134, 27084277306054500438, 742412698554626764774, 21421502369955072576342, 648998599988032588957414
Offset: 0

Author

Sithembele Nkonkobe, Jul 02 2015

Keywords

Comments

Also, number of preferential fuzzy subsets of length n+2 where the keychains are of length n+2.
Binomial transform of A007047.
Double binomial transform of A000629.
Conjecture: for fixed k = 1,2,..., the sequence obtained by reducing a(n) modulo k is eventually periodic with the exact period dividing phi(k), where phi(k) is the Euler totient function A000010. For example, modulo 24 the sequence becomes [1, 4, 18, 22, 6, 22, 6, 22, 6, ...] with an apparent period of 2 beginning at a(3). - Peter Bala, Jul 08 2022

Crossrefs

Programs

  • Maple
    S:= series(exp(3*x)/(2-exp(x)),x,31):
    seq(coeff(S,x,j)*j!, j=0..30); # Robert Israel, Aug 11 2015
  • Mathematica
    Range[0, 25]! CoefficientList[Series[E^(3 x)/(2 - E^(x)), {x, 0, 25}], x] (* Vincenzo Librandi, Jul 06 2015 *)
  • PARI
    { my(x = xx + O(xx^40)); Vec(serlaplace(exp(3*x)/(2-exp(x)))) } \\ Michel Marcus, Jul 06 2015

Formula

E.g.f.: exp(3*x)/(2-exp(x)).
a(n) = 3^n + Sum_{k = 0..n-1} binomial(n,k)*a(k). - Robert Israel, Aug 11 2015
a(n) ~ 4*n! / (log(2))^(n+1). - Vaclav Kotesovec, Sep 27 2017
a(n) = Sum_{k>=0} (k + 3)^n / 2^(k+1). - Ilya Gutkovskiy, Jun 27 2020
a(n) = 8*A000670(n) - (2^n + 2 + 4*0^n). - Seiichi Manyama, Dec 21 2023

Extensions

More terms from Michel Marcus, Jul 06 2015