A277090 -id:A277090 - cp's OEIS frontend

A035451 Number of partitions of n into parts congruent to 1 mod 4.

1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 4, 4, 4, 5, 6, 7, 7, 8, 10, 11, 12, 13, 15, 17, 18, 20, 23, 26, 28, 30, 34, 38, 41, 44, 49, 55, 60, 64, 70, 78, 85, 91, 99, 109, 119, 128, 138, 151, 164, 176, 190, 207, 225, 241, 259, 281, 304, 326, 349, 377, 408, 437, 467, 503, 542, 581

Offset: 0

Olivier Gérard

nonn

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
James Mc Laughlin, Andrew V. Sills, Peter Zimmer, Rogers-Ramanujan-Slater Type Identities , arXiv:1901.00946 [math.NT]

Cf. A035462, A035382, A050449.

Cf. similar sequences of number of partitions of n into parts congruent to 1 mod m: A000009 (m=2), A035382 (m=3), this sequence (m=4), A109697 (m=5), A109701 (m=6), A109703 (m=7), A277090 (m=8).

 g := add(x^(n*(4*n-3))/mul((1-x^(4*k))*(1-x^(4*k-3)), k = 1..n), n = 0..5): gser := series(g,x,101): seq(coeff(gser,x,n), n = 0..100); # Peter Bala, Feb 02 2021

nmax=100; CoefficientList[Series[Product[1/(1-x^(4*k+1)),{k, 0, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Feb 26 2015 *)
nmax = 50; kmax = nmax/4; s = Range[0, kmax]*4 + 1;
Table[Count[IntegerPartitions@n, x_ /; SubsetQ[s, x]], {n, 0, nmax}] (* Robert Price, Aug 03 2020 *)

G.f.: 1/Product_{k>=0} (1 - x^(4*k+1)). - Vladeta Jovovic, Nov 22 2002
G.f.: Sum_{n>=0} (x^n / Product_{k=1..n} (1 - x^(4*k))). - Joerg Arndt, Apr 07 2011
G.f.: 1 + Sum_{n>=0} (x^(4*n+1) / Product_{k>=n} (1 - x^(4*k+1))) = 1 + Sum_{n>=0} (x^(4*n+1) / Product_{k=0..n} (1 - x^(4*k+1))). - Joerg Arndt, Apr 08 2011
a(n) ~ Gamma(1/4) * exp(Pi*sqrt(n/6)) / (2^(19/8) * 3^(1/8) * n^(5/8) * Pi^(3/4)) * (1 + (Pi/(96*sqrt(6)) - 5*sqrt(3/2)/(16*Pi)) / sqrt(n)). - Vaclav Kotesovec, Feb 26 2015, extended Jan 24 2017
a(n) = (1/n)*Sum_{k=1..n} A050449(k)*a(n-k), a(0) = 1. - Seiichi Manyama, Mar 20 2017
G.f.: Sum_{n>=0} x^(n*(4*n-3))/Product_{k = 1..n} ( (1-x^(4*k))*(1-x^(4*k-3)) ). (Set z = x and q = x^4 in Mc Laughlin et al., Section 1.3, Entry 7.) - Peter Bala, Feb 02 2021

Offset changed by N. J. A. Sloane, Apr 11 2010

A109697 Number of partitions of n into parts each equal to 1 mod 5.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 5, 6, 7, 7, 7, 8, 10, 11, 12, 12, 13, 15, 17, 18, 19, 20, 23, 26, 28, 29, 31, 34, 38, 41, 43, 45, 50, 55, 60, 63, 66, 71, 79, 85, 90, 94, 101, 110, 120, 127, 133, 141, 153, 165, 176, 184, 195, 210, 227, 241, 254, 267, 286, 307, 327

Offset: 0

Erich Friedman, Aug 07 2005

nonn

			a(11)=3 since 11 = 11 = 6+1+1+1+1+1 = 1+1+1+1+1+1+1+1+1+1+1

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Cf. A000041, A003105, A284097.

Cf. similar sequences of number of partitions of n into parts congruent to 1 mod m: A000009 (m=2), A035382 (m=3), A035451 (m=4), this sequence (m=5), A109701 (m=6), A109703 (m=7), A277090 (m=8).

g:=1/product(1-x^(1+5*j),j=0..25): gser:=series(g,x=0,85): seq(coeff(gser,x,n),n=0..80); # Emeric Deutsch, Mar 30 2006

Table[Count[IntegerPartitions[n],?(Union[Mod[#,5]]=={1}&)],{n,0,75}] (* _Harvey P. Dale, Oct 08 2011 *)

G.f.: 1/product(1-x^(1+5j), j=0..infinity). - Emeric Deutsch, Mar 30 2006
a(n) ~ Gamma(1/5) * exp(Pi*sqrt(2*n/15)) / (2^(8/5) * 3^(1/10) * 5^(2/5) * Pi^(4/5) * n^(3/5)) * (1 - (3*sqrt(3/10)/(5*Pi) + Pi/(120*sqrt(30))) / sqrt(n)). - Vaclav Kotesovec, Feb 27 2015, extended Jan 24 2017
a(n) = (1/n)*Sum_{k=1..n} A284097(k)*a(n-k), a(0) = 1. - Seiichi Manyama, Mar 20 2017
G.f.: Sum_{k>=0} x^k / Product_{j=1..k} (1 - x^(5*j)). - Ilya Gutkovskiy, Jul 17 2019

More terms from Emeric Deutsch, Mar 30 2006

A109701 Number of partitions of n into parts each equal to 1 mod 6.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 5, 6, 7, 7, 7, 7, 8, 10, 11, 12, 12, 12, 13, 15, 17, 18, 19, 19, 20, 23, 26, 28, 29, 30, 31, 34, 38, 41, 43, 44, 46, 50, 55, 60, 63, 65, 67, 72, 79, 85, 90, 93, 96, 102, 111, 120, 127, 132, 136, 143, 154, 166, 176, 183, 189, 198

Offset: 0

Erich Friedman, Aug 07 2005

nonn

Euler transform of period 6 sequence [ 1, 0, 0, 0, 0, 0, ...]. - Kevin T. Acres, Apr 28 2018

			a(10)=2 since 10 = 7+1+1+1 = 1+1+1+1+1+1+1+1+1+1

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Cf. A284098.

Cf. similar sequences of number of partitions of n into parts congruent to 1 mod m: A000009 (m=2), A035382 (m=3), A035451 (m=4), A109697 (m=5), this sequence (m=6), A109703 (m=7), A277090 (m=8).

g:=1/product(1-x^(1+6*j),j=0..20): gser:=series(g,x=0,77): seq(coeff(gser,x,n),n=0..74); # Emeric Deutsch, Apr 14 2006

nmax=100; CoefficientList[Series[Product[1/(1-x^(6*k+1)),{k, 0, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Feb 27 2015 *)

G.f.: 1/Product_{j >= 0} (1-x^(1+6j)). - Emeric Deutsch, Apr 14 2006
a(n) ~ Gamma(1/6) * exp(Pi*sqrt(n)/3) / (4 * sqrt(3) * Pi^(5/6) * n^(7/12)) * (1 - (7/(24*Pi) + Pi/144) / sqrt(n)). - Vaclav Kotesovec, Feb 27 2015, extended Jan 24 2017
a(n) = (1/n)*Sum_{k=1..n} A284098(k)*a(n-k), a(0) = 1. - Seiichi Manyama, Mar 20 2017
G.f.: Sum_{k>=0} x^k / Product_{j=1..k} (1 - x^(6*j)). - Ilya Gutkovskiy, Jul 17 2019

Changed offset to 0 and added a(0)=1 by Vaclav Kotesovec, Feb 27 2015

A109703 Number of partitions of n into parts each equal to 1 mod 7.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 5, 6, 7, 7, 7, 7, 7, 8, 10, 11, 12, 12, 12, 12, 13, 15, 17, 18, 19, 19, 19, 20, 23, 26, 28, 29, 30, 30, 31, 34, 38, 41, 43, 44, 45, 46, 50, 55, 60, 63, 65, 66, 68, 72, 79, 85, 90, 93, 95, 97, 103, 111, 120, 127, 132, 135

Offset: 0

Erich Friedman, Aug 07 2005

nonn

			a(15)=3 because we have 15=8+1+1+1+1+1+1+1=1+1+1+1+1+1+1+1+1+1+1+1+1+1+1.

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
Vaclav Kotesovec, Graph - The asymptotic ratio

Cf. A284099.

Cf. similar sequences of number of partitions of n into parts congruent to 1 mod m: A000009 (m=2), A035382 (m=3), A035451 (m=4), A109697 (m=5), A109701 (m=6), this sequence (m=7), A277090 (m=8).

g:=1/product(1-x^(1+7*j),j=0..20): gser:=series(g,x=0,80): seq(coeff(gser,x,n),n=0..77); # Emeric Deutsch, Apr 14 2006

nmax=100; CoefficientList[Series[Product[1/(1-x^(7*k+1)),{k, 0, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Feb 27 2015 *)

G.f.: 1/product(1-x^(1+7j), j=0..infinity). - Emeric Deutsch, Apr 14 2006
a(n) ~ Gamma(1/7) * exp(Pi*sqrt(2*n/21)) / (2^(11/7) * 3^(1/14) * 7^(3/7) * Pi^(6/7) * n^(4/7)) * (1 - (2*sqrt(6/7)/(7*Pi) + 13*Pi/(168*sqrt(42))) / sqrt(n)). - Vaclav Kotesovec, Feb 27 2015, extended Jan 24 2017
a(n) = (1/n)*Sum_{k=1..n} A284099(k)*a(n-k), a(0) = 1. - Seiichi Manyama, Mar 20 2017
G.f.: Sum_{k>=0} x^k / Product_{j=1..k} (1 - x^(7*j)). - Ilya Gutkovskiy, Jul 17 2019

Changed offset to 0 and added a(0)=1 by Vaclav Kotesovec, Feb 27 2015

A284100 a(n) = Sum_{d|n, d == 1 (mod 8)} d.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 10, 1, 1, 1, 1, 1, 1, 1, 18, 10, 1, 1, 1, 1, 1, 1, 26, 1, 10, 1, 1, 1, 1, 1, 34, 18, 1, 10, 1, 1, 1, 1, 42, 1, 1, 1, 10, 1, 1, 1, 50, 26, 18, 1, 1, 10, 1, 1, 58, 1, 1, 1, 1, 1, 10, 1, 66, 34, 1, 18, 1, 1, 1, 10, 74, 1, 26, 1, 1, 1, 1, 1

Offset: 1

Seiichi Manyama, Mar 20 2017

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Cf. A277090.

Cf. Sum_{d|n, d==1 (mod k)} d: A000593 (k=2), A078181 (k=3), A050449 (k=4), A284097 (k=5), A284098 (k=6), A284099 (k=7), this sequence (k=8).

Table[Sum[If[Mod[d, 8] == 1, d, 0], {d, Divisors[n]}], {n, 80}] (* Indranil Ghosh, Mar 21 2017 *)
Table[Total[Select[Divisors[n],Mod[#,8]==1&]],{n,80}] (* or *) Table[DivisorSum[n,#&,Mod[#,8]==1&],{n,80}] (* Harvey P. Dale, Mar 28 2020 *)

for(n=1, 80, print1(sumdiv(n, d, if(Mod(d, 8)==1, d, 0)), ", ")) \\ Indranil Ghosh, Mar 21 2017

from sympy import divisors
def a(n): return sum([d for d in divisors(n) if d%8==1]) # Indranil Ghosh, Mar 21 2017

G.f.: Sum_{k>=0} (8*k + 1)*x^(8*k+1)/(1 - x^(8*k+1)). - Ilya Gutkovskiy, Mar 21 2017
G.f.: Sum_{n >= 1} x^n*(1 + 7*x^(8*n))/(1 - x^(8*n))^2. - Peter Bala, Dec 19 2021
Sum_{k=1..n} a(k) = c * n^2 + O(n*log(n)), where c = Pi^2/96 = 0.102808... . - Amiram Eldar, Nov 26 2023

cp's OEIS Frontend

A035451 Number of partitions of n into parts congruent to 1 mod 4.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A109697 Number of partitions of n into parts each equal to 1 mod 5.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A109701 Number of partitions of n into parts each equal to 1 mod 6.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A109703 Number of partitions of n into parts each equal to 1 mod 7.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A284100 a(n) = Sum_{d|n, d == 1 (mod 8)} d.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula