A326982 -id:A326982 - cp's OEIS frontend

A326958 Total sum of noncomposite parts in all partitions of n.

0, 1, 4, 9, 16, 31, 52, 87, 132, 203, 303, 450, 641, 922, 1287, 1792, 2446, 3347, 4488, 6030, 7975, 10538, 13778, 17987, 23234, 29980, 38383, 49015, 62195, 78766, 99137, 124560, 155672, 194158, 241104, 298780, 368747, 454276, 557619, 683132, 834252, 1016955

Offset: 0

Omar E. Pol, Aug 08 2019

nonn

			For n = 6 we have:
--------------------------------------
.                         Sum of
Partitions             noncomposite
of 6                       parts
--------------------------------------
6 .......................... 0
3 + 3 ...................... 6
4 + 2 ...................... 2
2 + 2 + 2 .................. 6
5 + 1 ...................... 6
3 + 2 + 1 .................. 6
4 + 1 + 1 .................. 2
2 + 2 + 1 + 1 .............. 6
3 + 1 + 1 + 1 .............. 6
2 + 1 + 1 + 1 + 1 .......... 6
1 + 1 + 1 + 1 + 1 + 1 ...... 6
------------------------------------
Total ..................... 52
So a(6) = 52.

Cf. A000041, A000070, A008578 (noncomposites), A066186, A073118, A194545, A199936, A326957, A326982.

b:= proc(n, i) option remember; `if`(n=0 or i=1, [1, n], b(n, i-1)+
      (p-> p+[0, `if`(isprime(i), p[1]*i, 0)])(b(n-i, min(n-i, i))))
    end:
a:= n-> b(n$2)[2]:
seq(a(n), n=0..50);  # Alois P. Heinz, Aug 13 2019

b[n_, i_] := b[n, i] = If[n==0 || i==1, {1, n}, b[n, i-1] + # + {0, If[PrimeQ[i], #[[1]] i, 0]}&[b[n-i, Min[n-i, i]]]];
a[n_] := b[n, n][[2]];
a /@ Range[0, 50] (* Jean-François Alcover, Nov 17 2020, after Alois P. Heinz *)

a(n) = A073118(n) + A000070(n-1), n >= 1.

a(n) = A066186(n) - A326982(n).

A326981 Total number of composite parts in all partitions of n.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 3, 4, 9, 13, 22, 31, 51, 70, 105, 145, 210, 283, 398, 530, 726, 958, 1283, 1673, 2212, 2854, 3714, 4756, 6119, 7764, 9893, 12457, 15728, 19674, 24636, 30615, 38079, 47034, 58109, 71396, 87692, 107179, 130943, 159278, 193619, 234486, 283720

Offset: 0

Omar E. Pol, Aug 09 2019

nonn

			For n = 6 we have:
--------------------------------------
.                        Number of
Partitions               composite
of 6                       parts
--------------------------------------
6 .......................... 1
3 + 3 ...................... 0
4 + 2 ...................... 1
2 + 2 + 2 .................. 0
5 + 1 ...................... 0
3 + 2 + 1 .................. 0
4 + 1 + 1 .................. 1
2 + 2 + 1 + 1 .............. 0
3 + 1 + 1 + 1 .............. 0
2 + 1 + 1 + 1 + 1 .......... 0
1 + 1 + 1 + 1 + 1 + 1 ...... 0
------------------------------------
Total ...................... 3
So a(6) = 3.

Cf. A000041, A002808, A006128, A037032, A144115, A144116, A144119, A326957, A326982.

b:= proc(n, i) option remember; `if`(n=0 or i=1, [1, 0], b(n, i-1)+
      (p-> p+[0, `if`(isprime(i), 0, p[1])])(b(n-i, min(n-i, i))))
    end:
a:= n-> b(n$2)[2]:
seq(a(n), n=0..50);  # Alois P. Heinz, Aug 13 2019

b[n_, i_] := b[n, i] = If[n==0 || i==1, {1, 0}, b[n, i-1] + # + {0, If[PrimeQ[i], 0, #[[1]]]}&[b[n-i, Min[n-i, i]]]];
a[n_] := b[n, n][[2]];
a /@ Range[0, 50] (* Jean-François Alcover, Nov 17 2020, after Alois P. Heinz *)

a(n) = A144119(n) - A000070(n-1), n >= 1.

a(n) = A006128(n) - A326957(n).

cp's OEIS Frontend

A326958 Total sum of noncomposite parts in all partitions of n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple

Mathematica

Formula