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-6 of 6 results.

A157866 Numerator of Bernoulli(n, 1/5).

Original entry on oeis.org

1, -3, 1, 6, -29, -74, 4537, 1946, -23789, -88434, 15034541, 6154786, -10417027559, -607884394, 13199705071, 80834386026, -34108052679853, -13923204233954, 51709981061257363, 3015393801263666, -1029159167703800359, -801997872697905114, 629565265428734672873
Offset: 0

Views

Author

N. J. A. Sloane, Nov 08 2009

Keywords

Comments

From Wolfdieter Lang, Jul 05 2017: (Start)
a(n) gives also the numerators of the generalized Bernoulli numbers B[5,1](n) = 5^n*B(n, 1/5) with the Bernoulli polynomials B(n, x) = Bernoulli(n, x) from A196838/A196839 or A053382/A053383. For the denominators see A288872(n) = A157867(n)/5^n.
(-1)^n*a(n) gives the numerators of the generalized Bernoulli numbers B[5,4](n). The denominators are also A288872(n).
The generalized Bernoulli numbers B[d,a](n), for d >= 1, a >= 0, with gcd(d, a) = 1 are defined in terms of generalized Stirling2 numbers by B[d,a](n) = Sum_{k=0..n} ((-1)^k / (k+1))*S2[d,a](n, k)*k!, n >= 0. See A285061 for more details.
(End)

Crossrefs

For denominators see A157867, and also A288872.

Programs

  • Mathematica
    Table[Numerator[BernoulliB[n, 1/5]], {n, 0, 50}] (* Vincenzo Librandi, Mar 16 2014 *)
  • PARI
    a(n)=numerator(subst(bernpol(n, x), x, 1/5)); \\ Michel Marcus, Jul 06 2017

A157871 Numerator of Bernoulli(n, -1/5).

Original entry on oeis.org

1, -7, 61, -21, 91, 49, 5797, -1981, -23549, 88389, 15037841, -6154841, -10416994799, 607884329, 13199705491, -80834386101, -34108052671693, 13923204233869, 51709981061329183, -3015393801263761, -1029159167703793759, 801997872697905009, 629565265428734688053
Offset: 0

Views

Author

N. J. A. Sloane, Nov 08 2009

Keywords

Crossrefs

For denominators see A157867.

Programs

  • Mathematica
    Table[Numerator[BernoulliB[n, -1/5]], {n, 0, 50}] (* Vincenzo Librandi, Mar 16 2014 *)

A157883 Numerator of Bernoulli(n, 2/5).

Original entry on oeis.org

1, -1, -11, 3, 91, -43, -12347, 1183, 62851, -54423, -39448591, 3799763, 27287144401, -375591203, -34562009741, 49954996743, 89299092717107, -8604866798383, -135379643536733633, 1863607913992123, 2694379428323830241, -495661415843787963, -1648224141847799919403
Offset: 0

Views

Author

N. J. A. Sloane, Nov 08 2009

Keywords

Comments

From Wolfdieter Lang, Jul 05 2017: (Start)
a(n) gives also the numerators of the generalized Bernoulli numbers B[5,2](n) = 5^n*Bernoulli(n, 2/5) with the Bernoulli polynomials B(n, x) = Bernoulli(n, x) from A196838/A196839 or A053382/A053383. For the denominators see A288872(n) = A157867(n)/5^n. See a comment under A157866 for B[d,a](n).
(-1)^n*a(n) gives the numerators of the generalized Bernoulli numbers B[5,3](n); the denominators are A288872(n).
(End)

Crossrefs

For denominators see A157867.
Cf. A288872.

Programs

  • Mathematica
    Table[Numerator[BernoulliB[n, 2/5]], {n, 0, 50}] (* Vincenzo Librandi, Mar 16 2014 *)
  • PARI
    a(n) = numerator(subst(bernpol(n, x), x, 2/5)); \\ Michel Marcus, Jul 06 2017
    
  • Python
    from sympy import bernoulli, Integer
    def a(n): return bernoulli(n, Integer(2)/5).numerator
    print([a(n) for n in range(51)]) # Indranil Ghosh, Jul 06 2017

A157906 Numerator of Bernoulli(n, -2/5).

Original entry on oeis.org

1, -9, 109, -63, 1051, -357, 27973, -3423, 93571, 42903, -37758991, -3856083, 27354236881, 375324963, -34558569101, -49956225543, 89299360103987, 8604861227823, -135379634123142593, -1863607938895803, 2694379431784131041, 495661415733687483, -1648224141815965152043
Offset: 0

Views

Author

N. J. A. Sloane, Nov 08 2009

Keywords

Crossrefs

For denominators see A157867.

Programs

  • Mathematica
    Table[Numerator[BernoulliB[n, -2/5]], {n, 0, 50}] (* Vincenzo Librandi, Mar 16 2014 *)

A157944 Numerator of Bernoulli(n, -3/5).

Original entry on oeis.org

1, -11, 169, -132, 3331, -2068, 293833, -24332, 587731, -349668, 25505309, 552068, 33090480121, -410134868, -33892394081, 49596274068, 89416179798227, -8608525769668, -135370368690226973, 1863571109045668, 2694387099249512441, -495661781956150068, -1648223983059638297863
Offset: 0

Views

Author

N. J. A. Sloane, Nov 08 2009

Keywords

Crossrefs

For denominators see A157867.

Programs

  • Mathematica
    Table[Numerator[BernoulliB[n, -3/5]], {n, 0, 50}] (* Vincenzo Librandi, Mar 16 2014 *)

A157969 Numerator of Bernoulli(n, -4/5).

Original entry on oeis.org

1, -13, 241, -234, 7651, -6474, 1294777, -141414, 3908371, -3037554, 880109741, -51516894, 126988371481, -1698403434, 41385427951, 60701726826, -25346319396013, -14288276454114, 52943839266052243, 3008865450973746, -1027344973517969959, -802113321418821594
Offset: 0

Views

Author

N. J. A. Sloane, Nov 08 2009

Keywords

Crossrefs

For denominators see A157867.

Programs

  • Mathematica
    Table[Numerator[BernoulliB[n, -4/5]], {n, 0, 50}] (* Vincenzo Librandi, Mar 16 2014 *)
Showing 1-6 of 6 results.