A256425 -id:A256425 - cp's OEIS frontend

A256848 Decimal expansion of the generalized Euler constant gamma(3,5) (negated).

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

Offset: 0

Jean-François Alcover, Apr 11 2015

			-0.013763739708181991968019076883991139603013419915782102729...

G. C. Greubel, Table of n, a(n) for n = 0..10000
D. H. Lehmer, Euler constants for arithmetic progressions, Acta Arith. 27 (1975) p. 134.

Cf. A001620 (gamma(1,1) = EulerGamma),
Primitive ruler-and-compass constructible gamma(r,k): A228725 (1,2), A256425 (1,3), A256778 (1,4), A256779 (1,5), A256780 (2,5), A256781 (1,8), A256782 (3,8), A256783 (1,12), A256784 (5,12),
Other gamma(r,k) (1 <= r <= k <= 5): A239097 (2,2),  A256843 (2,3),  A256844 (3,3), A256845 (2,4), A256846 (3,4), A256847 (4,4), A256848 (3,5), A256849 (4,5), A256850 (5,5).

SetDefaultRealField(RealField(100)); R:= RealField(); EulerGamma(R)/5 + Pi(R)/(10*Sqrt(2*(5+Sqrt(5)))) - Pi(R)/(2*Sqrt(10*(5+Sqrt(5)))) + Log(5)/20 + Log((5-Sqrt(5))/(5+Sqrt(5)))/(4*Sqrt(5)); // G. C. Greubel, Aug 28 2018

Join[{0}, RealDigits[-Log[5]/5 - PolyGamma[3/5]/5, 10, 108] // First  ]

default(realprecision, 100); Euler/5 + Pi/(10*sqrt(2*(5+sqrt(5)))) - Pi/(2*sqrt(10*(5+sqrt(5)))) + log(5)/20 + log((5-sqrt(5))/(5+sqrt(5)))/(4*sqrt(5)) \\ G. C. Greubel, Aug 28 2018

Equals -log(5)/5 - PolyGamma(3/5)/5.

Equals EulerGamma/5 + Pi/(10*sqrt(2*(5+sqrt(5)))) - Pi/(2*sqrt(10*(5+sqrt(5)))) + log(5)/20 + log((5-sqrt(5))/(5+sqrt(5)))/(4*sqrt(5)).

A256849 Decimal expansion of the generalized Euler constant gamma(4,5) (negated).

Original entry on oeis.org

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

Offset: 0

Jean-François Alcover, Apr 11 2015

			-0.12888586914559238304189234001387044397828817291465897856 ...

G. C. Greubel, Table of n, a(n) for n = 0..10000
D. H. Lehmer, Euler constants for arithmetic progressions, Acta Arith. 27 (1975) p. 134.

Cf. A001620 (gamma(1,1) = EulerGamma),
Primitive ruler-and-compass constructible gamma(r,k): A228725 (1,2), A256425 (1,3), A256778 (1,4), A256779 (1,5), A256780 (2,5), A256781 (1,8), A256782 (3,8), A256783 (1,12), A256784 (5,12),
Other gamma(r,k) (1 <= r <= k <= 5): A239097 (2,2), A256843 (2,3), A256844 (3,3), A256845 (2,4), A256846 (3,4), A256847 (4,4), A256848 (3,5), A256849 (4,5), A256850 (5,5).

SetDefaultRealField(RealField(100)); R:= RealField(); EulerGamma(R)/5 - Pi(R)/(10*Sqrt(2*(5-Sqrt(5)))) - Pi(R)/(2*Sqrt(10*(5-Sqrt(5)))) + Log(5)/20 - Log(5-Sqrt(5))/(4*Sqrt(5)) + Log(5+Sqrt(5))/( 4*Sqrt(5)); // G. C. Greubel, Aug 28 2018

RealDigits[-Log[5]/5 - PolyGamma[4/5]/5, 10, 107] // First

default(realprecision, 100); Euler/5 - Pi/(10*sqrt(2*(5-sqrt(5)))) - Pi/(2*sqrt(10*(5-sqrt(5)))) + log(5)/20 - log(5-sqrt(5))/(4*sqrt(5)) + log(5+sqrt(5))/(4*sqrt(5)) \\ G. C. Greubel, Aug 28 2018

Equals -log(5)/5 - PolyGamma(4/5)/5.

Equals EulerGamma/5 - Pi/(10*sqrt(2*(5-sqrt(5)))) - Pi/(2*sqrt(10*(5-sqrt(5)))) + log(5)/20 - log(5-sqrt(5))/(4*sqrt(5)) + log(5+sqrt(5))/(4*sqrt(5)).

A256783 Decimal expansion of the generalized Euler constant gamma(1,12).

Original entry on oeis.org

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

Offset: 0

Jean-François Alcover, Apr 10 2015

			0.83024988988662433938903419703214965055579639279727496201543...

G. C. Greubel, Table of n, a(n) for n = 0..10000
D. H. Lehmer, Euler constants for arithmetic progressions, Acta Arith. 27 (1975), p. 134.

Cf. A001620 (EulerGamma), A016635, A228725 (gamma(1,2)), A256425 (gamma(1,3)), A256778-A256784 (selection of ruler-and-compass constructible gamma(r,k)).

SetDefaultRealField(RealField(100)); R:= RealField(); EulerGamma(R)/12 + (1/24)*(Pi(R)*(2+Sqrt(3)) - 2*(Sqrt(3)-1)*Log(2) + Log(3) + 4*Sqrt(3)*Log(Sqrt(3)+1)); // G. C. Greubel, Aug 28 2018

RealDigits[-Log[12]/12 - PolyGamma[1/12]/12, 10, 103] // First

default(realprecision, 100); Euler/12 + 1/24*(Pi*(2+sqrt(3)) - 2*(sqrt(3)-1)*log(2) + log(3) + 4*sqrt(3)*log(sqrt(3)+1)) \\ G. C. Greubel, Aug 28 2018

Equals EulerGamma/12 + 1/24*(Pi*(2+sqrt(3)) - 2*(sqrt(3)-1)*log(2) + log(3) + 4*sqrt(3) * log(sqrt(3)+1)).
Equals Sum_{n>=0} (1/(12n+1) - 1/12*log((12n+13)/(12n+1))).
Equals -(psi(1/12) + log(12))/12. - Amiram Eldar, Jan 07 2024

A256844 Decimal expansion of the generalized Euler constant gamma(3,3) (negated).

Original entry on oeis.org

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

Offset: 0

Jean-François Alcover, Apr 11 2015

			-0.1737988745888589435962443822800410912017770739609419509763...

G. C. Greubel, Table of n, a(n) for n = 0..10000
D. H. Lehmer, Euler constants for arithmetic progressions, Acta Arith. 27 (1975) p. 134.

Cf. A001620 (gamma(1,1) = EulerGamma),
Primitive ruler-and-compass constructible gamma(r,k): A228725 (1,2), A256425 (1,3), A256778 (1,4), A256779 (1,5), A256780 (2,5), A256781 (1,8), A256782 (3,8), A256783 (1,12), A256784 (5,12),
Other gamma(r,k) (1 <= r <= k <= 5): A239097 (2,2), A256843 (2,3),  A256844 (3,3), A256845 (2,4), A256846 (3,4), A256847 (4,4), A256848 (3,5), A256849 (4,5), A256850 (5,5).

SetDefaultRealField(RealField(100)); R:= RealField(); EulerGamma(R)/3 - Log(3)/3; // G. C. Greubel, Aug 28 2018

RealDigits[EulerGamma/3 - Log[3]/3, 10, 105] // First

default(realprecision, 100); Euler/3 - log(3)/3 \\ G. C. Greubel, Aug 28 2018

Equals EulerGamma/3 - log(3)/3.

A256847 Decimal expansion of the generalized Euler constant gamma(4,4) (negated).

Original entry on oeis.org

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

Offset: 0

Jean-François Alcover, Apr 11 2015

			-0.202269674054589439556988038208487676277210233195146727358898...

G. C. Greubel, Table of n, a(n) for n = 0..10000
D. H. Lehmer, Euler constants for arithmetic progressions, Acta Arith. 27 (1975) p. 134.

Cf. A001620 (gamma(1,1) = EulerGamma),
Primitive ruler-and-compass constructible gamma(r,k): A228725 (1,2), A256425 (1,3), A256778 (1,4), A256779 (1,5), A256780 (2,5), A256781 (1,8), A256782 (3,8), A256783 (1,12), A256784 (5,12),
Other gamma(r,k) (1 <= r <= k <= 5): A239097 (2,2),  A256843 (2,3),  A256844 (3,3), A256845 (2,4), A256846 (3,4), A256847 (4,4), A256848 (3,5), A256849 (4,5), A256850 (5,5).

SetDefaultRealField(RealField(100)); R:= RealField(); (EulerGamma(R) - Log(4))/4; // G. C. Greubel, Aug 28 2018

RealDigits[EulerGamma/4 - Log[4]/4, 10, 104] // First

default(realprecision, 100); (Euler - log(4))/4 \\ G. C. Greubel, Aug 28 2018

Equals (EulerGamma - log(4))/4.

A256850 Decimal expansion of the generalized Euler constant gamma(5,5) (negated).

Original entry on oeis.org

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

Offset: 0

Jean-François Alcover, Apr 11 2015

			-0.20644444950651350279884944862875704169668840366571882462...

G. C. Greubel, Table of n, a(n) for n = 0..10000
D. H. Lehmer, Euler constants for arithmetic progressions, Acta Arith. 27 (1975) p. 134.

Cf. A001620 (gamma(1,1) = EulerGamma),
Primitive ruler-and-compass constructible gamma(r,k): A228725 (1,2), A256425 (1,3), A256778 (1,4), A256779 (1,5), A256780 (2,5), A256781 (1,8), A256782 (3,8), A256783 (1,12), A256784 (5,12),
Other gamma(r,k) (1 <= r <= k <= 5): A239097 (2,2),  A256843 (2,3),  A256844 (3,3), A256845 (2,4), A256846 (3,4), A256847 (4,4), A256848 (3,5), A256849 (4,5), A256850 (5,5).

SetDefaultRealField(RealField(100)); R:= RealField(); (EulerGamma(R) - Log(5))/5; // G. C. Greubel, Aug 28 2018

RealDigits[EulerGamma/5 - Log[5]/5, 10, 102] // First

default(realprecision, 100); (Euler - log(5))/5 \\ G. C. Greubel, Aug 28 2018

Equals (EulerGamma - log(5))/5.

A293895 Number of proper divisors of n of the form 3k+1.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 1, 2, 2, 1, 2, 2, 3, 1, 2, 1, 3, 1, 1, 1, 3, 2, 3, 1, 3, 1, 1, 1, 4, 2, 1, 1, 3, 1, 2, 2, 3, 2, 2, 1, 3, 1, 3, 1, 2, 1, 2, 2, 3, 2, 2, 1, 5, 1, 1, 1, 4, 1, 2, 1, 3, 1, 2, 3, 3, 2, 1, 2, 3, 1, 3, 1, 4, 1, 2, 1, 4, 2

Offset: 1

Antti Karttunen, Nov 06 2017

Antti Karttunen, Table of n, a(n) for n = 1..20000
R. A. Smith and M. V. Subbarao, The average number of divisors in an arithmetic progression, Canadian Mathematical Bulletin, Vol. 24, No. 1 (1981), pp. 37-41.

Cf. A001620, A001817, A256425, A293451, A293896, A293897, A293899.

Table[DivisorSum[n, 1 &, And[Mod[#, 3] == 1, # != n] &], {n, 105}] (* Michael De Vlieger, Nov 08 2017 *)

PARI
```
A293895(n) = sumdiv(n,d,(d
				
```

a(n) = A001817(n) - [n == 1 (mod 3)].
G.f.: Sum_{k>=1} x^(6*k-4) / (1 - x^(3*k-2)). - Ilya Gutkovskiy, Apr 14 2021
Sum_{k=1..n} a(k) = n*log(n)/3 + c*n + O(n^(1/3)*log(n)), where c = gamma(1,3) - (2 - gamma)/3 = A256425 - (2 - A001620)/3 = 0.203545... (Smith and Subbarao, 1981). - Amiram Eldar, Nov 25 2023

A218442 a(n) = Sum_{k=0..n} floor(n/(3*k + 1)).

Original entry on oeis.org

0, 1, 2, 3, 5, 6, 7, 9, 11, 12, 14, 15, 17, 19, 21, 22, 25, 26, 27, 29, 32, 34, 36, 37, 39, 41, 43, 44, 48, 49, 51, 53, 56, 57, 59, 61, 63, 65, 67, 69, 73, 74, 76, 78, 81, 82, 84, 85, 88, 91, 94, 95, 99, 100, 101, 103, 107, 109, 111, 112, 115, 117, 119, 121, 125, 127, 129, 131, 134, 135, 139, 140, 142, 144, 146, 148, 152

Offset: 0

Benoit Cloitre, Oct 28 2012

Amiram Eldar, Table of n, a(n) for n = 0..10000
R. A. Smith and M. V. Subbarao, The average number of divisors in an arithmetic progression, Canadian Mathematical Bulletin, Vol. 24, No. 1 (1981), pp. 37-41.

Partial sums of A001817.

Cf. A001620, A218443, A256425.

d[n_] := DivisorSum[n, 1 &, Mod[#, 3] == 1 &]; d[0] = 0; Accumulate@Array[d, 100, 0] (* Amiram Eldar, Nov 25 2023 *)

A218442[n]:=sum(floor(n/(3*k+1)),k,0,n)$
makelist(A218442[n],n,0,80); /* Martin Ettl, Oct 29 2012 */

PARI
```
a(n)=sum(k=0,n\3,(n\(3*k+1)))
```

a(n) = n*log(n)/3 + c*n + O(n^(1/3)*log(n)), where c = gamma(1,3) - (1 - gamma)/3 = A256425 - (1 - A001620)/3 = 0.536879... (Smith and Subbarao, 1981). - Amiram Eldar, Nov 25 2023

A326395 Expansion of Sum_{k>=1} x^(2k) (1 + x^k) / (1 - x^(3*k)).

Original entry on oeis.org

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

Offset: 1

Ilya Gutkovskiy, Sep 11 2019

nonn

Number of divisors of n that are not of the form 3*k + 1.

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A000005, A001817, A001822, A004611 (positions of 0's), A007494, A035191, A082050, A326394.

Cf. A001620, A256425.

N:= 100: # for a(1) .. a(N)
S:= series(add(x^(2*k)*(1+x^k)/(1-x^(3*k)),k=1..N/2),x,N+1):
seq(coeff(S,x,i),i=1..N); # Robert Israel, Aug 27 2020

nmax = 90; CoefficientList[Series[Sum[x^(2 k) (1 + x^k)/(1 - x^(3 k)), {k, 1, nmax}], {x, 0, nmax}], x] // Rest
Table[DivisorSum[n, 1 &, !MemberQ[{1}, Mod[#, 3]] &], {n, 1, 90}]

a(n) = {numdiv(n) - sumdiv(n, d, d%3==1)} \\ Andrew Howroyd, Sep 11 2019

a(n) = A000005(n) - A001817(n).

Sum_{k=1..n} a(k) ~ 2*n*log(n)/3 + c*n, where c = (5*gamma-2)/3 - gamma(1,3) = (5*A001620-2)/3 - A256425 = -0.382447... . - Amiram Eldar, Jan 14 2024

cp's OEIS Frontend

A256848 Decimal expansion of the generalized Euler constant gamma(3,5) (negated).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A256849 Decimal expansion of the generalized Euler constant gamma(4,5) (negated).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A256783 Decimal expansion of the generalized Euler constant gamma(1,12).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A256844 Decimal expansion of the generalized Euler constant gamma(3,3) (negated).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A256847 Decimal expansion of the generalized Euler constant gamma(4,4) (negated).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A256850 Decimal expansion of the generalized Euler constant gamma(5,5) (negated).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A293895 Number of proper divisors of n of the form 3k+1.

Views

Author

Keywords

Links

Crossrefs

Programs

A326395 Expansion of Sum_{k>=1} x^(2k) (1 + x^k) / (1 - x^(3*k)).