A096045 -id:A096045 - cp's OEIS frontend

A096054 a(n) = (36^n/6)*B(2n,1/6)/B(2n) where B(n,x) is the n-th Bernoulli polynomial and B(k) = B(k,0) is the k-th Bernoulli number.

1, 91, 3751, 138811, 5028751, 181308931, 6529545751, 235085301451, 8463265086751, 304679288612371, 10968470088963751, 394865064451017691, 14215143591303768751, 511745180725868773411, 18422826609078989373751, 663221758853362301815531, 23875983327059668074930751

Offset: 1

Benoit Cloitre, Jun 18 2004

Colin Barker, Table of n, a(n) for n = 1..600
Index entries for linear recurrences with constant coefficients, signature (50,-553,1800,-1296).

Cf. A083420, A096045, A096046, A096047, A096048, A096053.

a[n_] := 6^(2*n-1) * BernoulliB[2*n, 1/6] / BernoulliB[2*n]; Array[a, 15] (* Amiram Eldar, May 07 2025 *)

a(n)=(1/12)*36^n-(1/6)*9^n-(1/4)*4^n+1/2;

a(n) = (1/12)*(36^n - 2*9^n - 3*4^n+6).
From Colin Barker, May 30 2020: (Start)
G.f.: x*(1 - 6*x)*(1 + 47*x + 36*x^2) / ((1 - x)*(1 - 4*x)*(1 - 9*x)*(1 - 36*x)).
a(n) = 50*a(n-1) - 553*a(n-2) + 1800*a(n-3) - 1296*a(n-4) for n>4. (End)

A096050 Decimal expansion of lim_{n->oo} B(2n,7)/(B(2n)*49^n) (see comment for B(n,k) definition).

Original entry on oeis.org

1, 0, 6, 2, 7, 5, 1, 6, 9, 9, 6, 9, 0, 2, 1, 1, 0, 7, 8, 2, 4, 5, 8, 3, 2, 5, 1, 9, 3, 3, 2, 6, 2, 6, 6, 9, 8, 2, 2, 7, 9, 5, 4, 2, 1, 1, 5, 1, 7, 2, 6, 6, 3, 1, 5, 7, 7, 2, 4, 0, 8, 4, 2, 6, 8, 1, 7, 1, 9, 1, 0, 5, 7, 9, 2, 3, 9, 1, 8, 7, 8, 5, 9, 0, 4, 0, 0, 9, 5, 8, 2, 1, 1, 2, 2, 3, 5, 7, 7, 1, 3, 8, 8, 8, 2

Offset: 1

Benoit Cloitre, Jun 17 2004

B(n,p) = Sum_{i=0..n} p^i * Sum_{j=0..i} binomial(n,j)*B(j) where B(k) = k-th Bernoulli number. B(2n,p)/B(2n) takes integer values for all n if p=1,2,3,4,6. p=5 is the smallest integer for which B(2n,5)/B(2n) is not always integer-valued. And lim_{n->oo} B(2n,5)/(B(2n)*25^n) = (21-sqrt(5))/16.

Cf. A096045, A096046, A096047, A096048, A096049.

RealDigits[x/.FindRoot[ 1728x^3-6192x^2+7368x-2911==0,{x,1}, WorkingPrecision-> 120]][[1]] (* Harvey P. Dale, Feb 19 2012 *)

solve(q=1,1.1,1728*q^3-6192*q^2+7368*q-2911)

Limit_{n->oo} B(2n, 7)/(B(2n)*49^n) = 1.0627516996902110782... is the smallest root of 1728*X^3 - 6192*X^2 + 7368*X - 2911 = 0.

A280173 a(0) = 1, a(n+1) = 2*a(n) + periodic sequence of length 2: repeat [5, -4].

Original entry on oeis.org

1, 7, 10, 25, 46, 97, 190, 385, 766, 1537, 3070, 6145, 12286, 24577, 49150, 98305, 196606, 393217, 786430, 1572865, 3145726, 6291457, 12582910, 25165825, 50331646, 100663297, 201326590, 402653185, 805306366, 1610612737, 3221225470, 6442450945, 12884901886

Offset: 0

Paul Curtz, Dec 28 2016

a(n) mod 9 = period 2: repeat [1, 7].
The last digit from 7 is of period 4: repeat [7, 0, 5, 6].
The bisection A096045 = 1, 10, 46, ... is based on Bernoulli numbers.
a(n) is a companion to A051049(n).
With an initial 0, A051049(n) is an autosequence of the first kind.
With an initial 2, this sequence is an autosequence of the second kind.
See the reference.
Difference table:
1,   7, 10, 25, 46,  97, ... = this sequence.
6,   3, 15, 21, 51,  93, ... = 3*A014551(n)
-3, 12,  6, 30, 42, 102, ... = -3 followed by 6*A014551(n).
The main diagonal of the difference table gives A003945: 1, 3, 6, 12, 24, ...

			a(0) = 1, a(1) = 2*1 + 5 = 7, a(2) = 2*7 - 4 = 10, a(3) = 2*10 + 5 = 25.

Colin Barker, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (2,1,-2).

Cf. A003945, A005010, A010688, A010710, A014551, A051049, A096045, A199116.

seq(3*2^n-(-1)^n*(1+irem(n+1,2)),n=0..32); # Peter Luschny, Dec 29 2016

LinearRecurrence[{2,1,-2},{1,7,10},50] (* Paolo Xausa, Nov 13 2023 *)

Vec((1 + 5*x - 5*x^2) / ((1 - x)*(1 + x)*(1 - 2*x)) + O(x^40)) \\ Colin Barker, Dec 28 2016

a(2n) = 3*4^n - 2, a(2n+1) = 6*4^n + 1.
a(n+2) = a(n) + 9*2^n, a(0) = 1, a(1) = 7.
a(n) = 2*A051049(n+1) - A051049(n).
From Colin Barker, Dec 28 2016: (Start)
a(n) = 3*2^n - 2 for n even.
a(n) = 3*2^n + 1 for n odd.
a(n) = 2*a(n-1) + a(n-2) - 2*a(n-3) for n>2.
G.f.: (1 + 5*x - 5*x^2) / ((1 - x)*(1 + x)*(1 - 2*x)).
(End)

A096051 Decimal expansion of lim_{n->oo} B(2n,8)/(B(2n)*64^n) (see comment for B(n,k) definition).

Original entry on oeis.org

1, 0, 4, 1, 8, 4, 1, 8, 8, 8, 4, 0, 1, 9, 2, 1, 7, 8, 2, 2, 2, 8, 4, 5, 0, 8, 0, 5, 4, 1, 3, 5, 9, 2, 9, 9, 4, 3, 8, 7, 8, 8, 0, 5, 8, 0, 3, 3, 0, 2, 1, 7, 9, 9, 4, 7, 7, 3, 0, 9, 4, 3, 0, 4, 4, 2, 9, 2, 3, 3, 3, 9, 4, 3, 9, 5, 5, 6, 3, 7, 8, 2, 9, 3, 9, 2, 5, 8, 0, 3, 3, 2, 6, 2, 3, 1, 1, 3, 1, 6, 2, 3, 3, 2, 1

Offset: 1

Benoit Cloitre, Jun 17 2004

B(n,p) = Sum_{i=0..n} (p^i * Sum_{j=0..i} binomial(n,j)*B(j)) where B(k) is the k-th Bernoulli number.

			1.04184188840192178222845080541359299438788058033021...

Cf. A027641, A027642, A096045, A096046, A096047, A096048, A096049, A096050.

RealDigits[(16 - Sqrt[2])/14, 10, 100][[1]] (* Amiram Eldar, May 08 2022 *)

PARI
```
(16-sqrt(2))/14
```

Equals (16-sqrt(2))/14.

A281500 Reduced denominators of f(n) = (n+1)/(2^(2+n)-2) with A026741(n+1) as numerators.

Original entry on oeis.org

2, 3, 14, 15, 62, 63, 254, 255, 1022, 1023, 4094, 4095, 16382, 16383, 65534, 65535, 262142, 262143, 1048574, 1048575, 4194302, 4194303, 16777214, 16777215, 67108862, 67108863, 268435454, 268435455, 1073741822, 1073741823, 4294967294, 4294967295, 17179869182, 17179869183

Offset: 0

Paul Curtz, Jan 23 2017

f(n) = (n+1)/A000918(n+2) = 1/2, 2/6, 3/14, 4/30, 5/62, 6/126, 7/254, 8/510, 9/1022, 10/2046, 11/4094, 12/8190, ... .
Partial reduction: 1/2, 1/3, 3/14, 2/15, 5/62, 3/63, 7/254, 4/255, 9/1022, 5/1023, 11/4094, 6/4095, ... = A026741(n+1)/a(n).
Full reduction: 1/2, 1/3, 3/14, 2/15, 5/62, 1/21, 7/254, ... = A111701(n+1)/(2, 3, 14, 15, 62, 21, ... )
A164555(n+1)/A027642(n) = 1/2, 1/6, 0, -1/30, 0, 1/42, ... = f(n) * A198631(n)/A006519(n+1) = 1, 1/2, 0, -1/4, 0, 1/2, ... .).
Via f(n), we go from the second fractional Euler numbers to the second Bernoulli numbers.
a(n) mod 10: periodic sequence of length 4: repeat [2, 3, 4, 5].
a(n) differences table:
.  2,   3, 14,  15,  62,   63, 254,  255, ...
.  1,  11,  1,  47,   1,  191,   1,  767, ... see A198693
. 10, -10, 46, -46, 190, -190, 766, -766, ... see A096045, from Bernoulli(2n).
Extension of a(n): a(-2) = -1, a(-1) = 0.

Colin Barker, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,5,0,-4).

Cf. A000027, A000918, A001477, A006519, A026741, A027642, A096045, A111701, A117856, A164555, A198631, A198693, A209308, A267921.

a[n_] := (3+(-1)^n)*(2^(n+1)-1)/2; (* or *) a[n_] := If[EvenQ[n], 4^(n/2+1)-2, 4^((n+1)/2)-1]; Table[a[n], {n, 0, 35}] (* Jean-François Alcover, Jan 24 2017 *)

Vec((2 + 3*x + 4*x^2) / ((1 - x)*(1 + x)*(1 - 2*x)*(1 + 2*x)) + O(x^50)) \\ Colin Barker, Jan 24 2017

From Colin Barker, Jan 24 2017: (Start)
G.f.: (2 + 3*x + 4*x^2) / ((1 - x)*(1 + x)*(1 - 2*x)*(1 + 2*x)).
a(n) = 5*a(n-2) - 4*a(n-4) for n>3. (End)
From Jean-François Alcover, Jan 24 2017: (Start)
a(n) = (3 + (-1)^n)*(2^(n + 1) - 1)/2.
a(n) = 4^((n + 1 + ((n + 1) mod 2))/2) - 1 - ((n + 1) mod 2). (End)
a(n) = a(n-2) + A117856(n+1) for n>1.
a(2*k) = 4^(k + 1) - 2, a(2*k+1) = a(2*k) + 1 = 4^(k+1) - 1.
a(2*k) + a(2*k+1) = A267921(k+1).

A096052 Decimal expansion of lim_{n->oo} B(2n,5)/(B(2n)*25^n) (see comment for B(n,k) definition).

Original entry on oeis.org

1, 1, 7, 2, 7, 4, 5, 7, 5, 1, 4, 0, 6, 2, 6, 3, 1, 4, 3, 9, 7, 4, 4, 2, 6, 6, 4, 5, 7, 0, 4, 2, 9, 5, 2, 3, 5, 2, 8, 4, 9, 6, 1, 3, 5, 2, 5, 2, 4, 2, 7, 9, 6, 4, 2, 2, 3, 3, 0, 6, 8, 9, 2, 2, 1, 6, 1, 8, 4, 2, 4, 4, 2, 1, 4, 7, 6, 3, 7, 1, 9, 3, 7, 8, 6, 5, 9, 9, 0, 9, 9, 4, 7, 6, 3, 2, 6, 1, 0, 7, 8, 1, 4, 4, 0

Offset: 1

Benoit Cloitre, Jun 17 2004

B(n,p) = Sum_{i=0..n} (p^i * Sum_{j=0..i} binomial(n,j)*B(j)) where B(k) is the k-th Bernoulli number.

			1.17274575140626314397442664570429523528496135252427...

Cf. A027641, A027642, A096045, A096046, A096047, A096048, A096049, A096050, A096051.

RealDigits[(21 - Sqrt[5])/16, 10, 100][[1]] (* Amiram Eldar, May 08 2022 *)

PARI
```
(21-sqrt(5))/16
```

Equals (21-sqrt(5))/16.

cp's OEIS Frontend

A096054 a(n) = (36^n/6)*B(2n,1/6)/B(2n) where B(n,x) is the n-th Bernoulli polynomial and B(k) = B(k,0) is the k-th Bernoulli number.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A096050 Decimal expansion of lim_{n->oo} B(2n,7)/(B(2n)*49^n) (see comment for B(n,k) definition).

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

PARI

Formula

A280173 a(0) = 1, a(n+1) = 2*a(n) + periodic sequence of length 2: repeat [5, -4].

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A096051 Decimal expansion of lim_{n->oo} B(2n,8)/(B(2n)*64^n) (see comment for B(n,k) definition).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

A281500 Reduced denominators of f(n) = (n+1)/(2^(2+n)-2) with A026741(n+1) as numerators.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A096052 Decimal expansion of lim_{n->oo} B(2n,5)/(B(2n)*25^n) (see comment for B(n,k) definition).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Formula