A066208 -id:A066208 - cp's OEIS frontend

A366839 Sum of even prime factors of 2n, counted with multiplicity.

2, 4, 2, 6, 2, 4, 2, 8, 2, 4, 2, 6, 2, 4, 2, 10, 2, 4, 2, 6, 2, 4, 2, 8, 2, 4, 2, 6, 2, 4, 2, 12, 2, 4, 2, 6, 2, 4, 2, 8, 2, 4, 2, 6, 2, 4, 2, 10, 2, 4, 2, 6, 2, 4, 2, 8, 2, 4, 2, 6, 2, 4, 2, 14, 2, 4, 2, 6, 2, 4, 2, 8, 2, 4, 2, 6, 2, 4, 2, 10, 2, 4, 2, 6, 2

Offset: 1

Gus Wiseman, Oct 25 2023

nonn

			The prime factors of 2*60 are {2,2,2,3,5}, of which the even factors are {2,2,2}, so a(60) = 6.

A compound version is A001414, triangle A331416.
Dividing by 2 gives A001511.
Positions of 2's are A005408.
For count instead of sum we have A007814, odd version A087436.
The partition triangle for this statistic is A116598 aerated.
For indices we have A366531, halved A366533, triangle A113686/A174713.
The odd version is A366840.
A019507 lists numbers with (even factor sum) = (odd factor sum).
A066207 lists numbers with all even prime indices, counted by A035363.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A162641 counts even prime exponents, odd A162642.
A239261 counts partitions with (sum of odd parts) = (sum of even parts).
A257992 counts even prime indices, odd A257991.
A366528 adds up odd prime indices, triangle A113685 (without zeros A365067).
Cf. A000720, A066208, A258117, A325698.

Table[2*Length[NestWhileList[#/2&,n,EvenQ]],{n,100}]

a(n) = 2 * valuation(n, 2) + 2; \\ Amiram Eldar, Sep 13 2024

a(n) = 2*A001511(n).
a(n) = A100006(n) - A366840(2n).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 4. - Amiram Eldar, Sep 13 2024

A366840 Sum of odd prime factors of n, counted with multiplicity.

Original entry on oeis.org

0, 0, 3, 0, 5, 3, 7, 0, 6, 5, 11, 3, 13, 7, 8, 0, 17, 6, 19, 5, 10, 11, 23, 3, 10, 13, 9, 7, 29, 8, 31, 0, 14, 17, 12, 6, 37, 19, 16, 5, 41, 10, 43, 11, 11, 23, 47, 3, 14, 10, 20, 13, 53, 9, 16, 7, 22, 29, 59, 8, 61, 31, 13, 0, 18, 14, 67, 17, 26, 12, 71, 6

Offset: 1

Gus Wiseman, Oct 27 2023

Contains all positive integers except 1, 2, 4.

			The prime factors of 60 are {2,2,2,3,5}, of which the odd factors are {3,5}, so a(60) = 8.

The compound version is A001414, triangle A331416.
For count instead of sum we have A087436, even version A007814.
Odd-indexed terms are A100005.
Positions of odd terms are A335657, even A036349.
For prime indices we have A366528, triangle A113685 (without zeros A365067)
The even version is A366839 = 2*A001511.
The partition triangle for this statistic is A366851, even version A116598.
A019507 lists numbers with (even factor sum) = (odd factor sum).
A066207 lists numbers with all even prime indices, counted by A035363.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A162641 counts even prime exponents, odd A162642.
A239261 counts partitions with (sum of odd parts) = (sum of even parts).
A257992 counts even prime indices, odd A257991.
Cf. A000009, A066208, A113686, A174713, A258117, A325698, A366531, A366850.

Table[Total[Times@@@DeleteCases[If[n==1,{}, FactorInteger[n]],{2,_}]],{n,100}]

a(n) = my(f=factor(n), j=if(n%2, 1, 2)); sum(i=j, #f~, f[i,1]*f[i,2]); \\ Michel Marcus, Oct 30 2023

a(n) = A100006(n) - A366839(n).
a(2n) = a(n).
a(2n-1) = A001414(2n-1) = A100005(n).
Completely additive with a(2^e) = 0 and a(p^e) = e*p for an odd prime p. - Amiram Eldar, Nov 03 2023

A366853 Number of integer partitions of n into odd, pairwise coprime parts.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 17, 18, 20, 22, 25, 29, 33, 36, 39, 43, 49, 55, 61, 66, 69, 75, 85, 94, 104, 113, 120, 129, 143, 159, 172, 183, 193, 207, 226, 251, 272, 288, 304, 325, 350, 383, 414, 437, 460, 494, 532, 577, 622, 655, 684

Offset: 0

Gus Wiseman, Nov 01 2023

nonn

			The a(1) = 1 through a(10) = 7 partitions:
1  11  3    31    5      51      7        53        9          73
       111  1111  311    3111    511      71        531        91
                  11111  111111  31111    5111      711        5311
                                 1111111  311111    51111      7111
                                          11111111  3111111    511111
                                                    111111111  31111111
                                                               1111111111

Partitions into odd parts are counted by A000009, ranks A066208.
Allowing even parts gives A051424.
For relatively prime (not pairwise coprime): A366843, with evens A000837.
A000041 counts integer partitions, strict A000009 (also into odds).
A101268 counts pairwise coprime compositions.
A168532 counts partitions by gcd.
Cf. A007359, A018783, A055922, A078374, A337485, A366844, A366852.

pwcop[y_]:=And@@(GCD@@#==1&)/@Subsets[y,{2}]
Table[Length[Select[IntegerPartitions[n],And@@OddQ/@#&&pwcop[#]&]],{n,0,30}]

A300351 Triangle whose n-th row lists in order all Heinz numbers of integer partitions of n into odd parts.

Original entry on oeis.org

1, 2, 4, 5, 8, 10, 16, 11, 20, 32, 22, 25, 40, 64, 17, 44, 50, 80, 128, 34, 55, 88, 100, 160, 256, 23, 68, 110, 125, 176, 200, 320, 512, 46, 85, 121, 136, 220, 250, 352, 400, 640, 1024, 31, 92, 170, 242, 272, 275, 440, 500, 704, 800, 1280, 2048, 62, 115, 184

Offset: 1

Gus Wiseman, Mar 03 2018

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			Triangle of partitions into odd parts begins:
                   0
                  (1)
                  (11)
                (3) (111)
               (31) (1111)
            (5) (311) (11111)
        (51) (33) (3111) (111111)
    (7) (511) (331) (31111) (1111111)
(71) (53) (5111) (3311) (311111) (11111111)

Cf. A000009, A031368, A056239, A066208, A078408, A215366, A246867, A299759, A299757, A300063, A300272.

Table[Sort[Times@@Prime/@#&/@Select[IntegerPartitions[n],And@@OddQ/@#&]],{n,0,12}]

A346634 Number of strict odd-length integer partitions of 2n + 1.

Original entry on oeis.org

1, 1, 1, 2, 4, 6, 9, 14, 19, 27, 38, 52, 71, 96, 128, 170, 224, 293, 380, 491, 630, 805, 1024, 1295, 1632, 2048, 2560, 3189, 3958, 4896, 6038, 7424, 9100, 11125, 13565, 16496, 20013, 24223, 29250, 35244, 42378, 50849, 60896, 72789, 86841, 103424, 122960, 145937

Offset: 0

Gus Wiseman, Aug 01 2021

nonn

			The a(0) = 1 through a(7) = 14 partitions:
  (1)  (3)  (5)  (7)      (9)      (11)     (13)      (15)
                 (4,2,1)  (4,3,2)  (5,4,2)  (6,4,3)   (6,5,4)
                          (5,3,1)  (6,3,2)  (6,5,2)   (7,5,3)
                          (6,2,1)  (6,4,1)  (7,4,2)   (7,6,2)
                                   (7,3,1)  (7,5,1)   (8,4,3)
                                   (8,2,1)  (8,3,2)   (8,5,2)
                                            (8,4,1)   (8,6,1)
                                            (9,3,1)   (9,4,2)
                                            (10,2,1)  (9,5,1)
                                                      (10,3,2)
                                                      (10,4,1)
                                                      (11,3,1)
                                                      (12,2,1)
                                                      (5,4,3,2,1)

Alois P. Heinz, Table of n, a(n) for n = 0..2000

Odd bisection of A067659, which is ranked by A030059.
The even version is the even bisection of A067661.
The case of all odd parts is counted by A069911 (non-strict: A078408).
The non-strict version is A160786, ranked by A340931.
The non-strict even version is A236913, ranked by A340784.
The even-length version is A343942 (non-strict: A236914).
The even-sum version is A344650 (non-strict: A236559 or A344611).
A000009 counts partitions with all odd parts, ranked by A066208.
A000009 counts strict partitions, ranked by A005117.
A027193 counts odd-length partitions, ranked by A026424.
A027193 counts odd-maximum partitions, ranked by A244991.
A058695 counts partitions of odd numbers, ranked by A300063.
A340385 counts partitions with odd length and maximum, ranked by A340386.
Other cases of odd length:
- A024429 set partitions
- A089677 ordered set partitions
- A166444 compositions
- A174726 ordered factorizations
- A332304 strict compositions
- A339890 factorizations
Cf. A000700, A008289, A047993, A072233, A106529, A168659, A218171, A340102, A340604, A340607.

b:= proc(n, i, t) option remember; `if`(n>i*(i+1)/2, 0,
     `if`(n=0, t, add(b(n-i*j, i-1, abs(t-j)), j=0..min(n/i, 1))))
    end:
a:= n-> b(2*n+1$2, 0):
seq(a(n), n=0..80);  # Alois P. Heinz, Aug 05 2021

Table[Length[Select[IntegerPartitions[2n+1],UnsameQ@@#&&OddQ[Length[#]]&]],{n,0,15}]

More terms from Alois P. Heinz, Aug 05 2021

A366529 Heinz numbers of integer partitions of even numbers with at least one even part.

Original entry on oeis.org

3, 7, 9, 12, 13, 19, 21, 27, 28, 29, 30, 36, 37, 39, 43, 48, 49, 52, 53, 57, 61, 63, 66, 70, 71, 75, 76, 79, 81, 84, 87, 89, 90, 91, 101, 102, 107, 108, 111, 112, 113, 116, 117, 120, 129, 130, 131, 133, 138, 139, 144, 147, 148, 151, 154, 156, 159, 163, 165

Offset: 1

Gus Wiseman, Oct 16 2023

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The terms together with their prime indices begin:
   3: {2}
   7: {4}
   9: {2,2}
  12: {1,1,2}
  13: {6}
  19: {8}
  21: {2,4}
  27: {2,2,2}
  28: {1,1,4}
  29: {10}
  30: {1,2,3}
  36: {1,1,2,2}
  37: {12}
  39: {2,6}
  43: {14}
  48: {1,1,1,1,2}

The complement is counted by A047967.
For all even parts we have A066207, counted by A035363, odd A066208.
Not requiring an even part gives A300061.
For odd instead of even we have A300063.
Not requiring even sum gives A324929.
Partitions of this type are counted by A366527.
A112798 list prime indices, sum A056239.
A257991 counts odd prime indices, distinct A324966.
A257992 counts even prime indices, distinct A324967.
Cf. A000720, A001222, A003963, A033844, A086543, A324927, A358137, A366530.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[prix[#]]]&&Or@@EvenQ/@prix[#]&]

A366532 Heinz numbers of integer partitions with at least one even and odd part.

Original entry on oeis.org

6, 12, 14, 15, 18, 24, 26, 28, 30, 33, 35, 36, 38, 42, 45, 48, 51, 52, 54, 56, 58, 60, 65, 66, 69, 70, 72, 74, 75, 76, 77, 78, 84, 86, 90, 93, 95, 96, 98, 99, 102, 104, 105, 106, 108, 112, 114, 116, 119, 120, 122, 123, 126, 130, 132, 135, 138, 140, 141, 142

Offset: 1

Gus Wiseman, Oct 16 2023

nonn

These partitions are counted by A006477.

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The terms together with their prime indices begin:
    6: {1,2}
   12: {1,1,2}
   14: {1,4}
   15: {2,3}
   18: {1,2,2}
   24: {1,1,1,2}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}
   33: {2,5}
   35: {3,4}
   36: {1,1,2,2}
   38: {1,8}
   42: {1,2,4}
   45: {2,2,3}
   48: {1,1,1,1,2}

These partitions are counted by A006477.
Just even: A324929, counted by A047967.
Just odd: A366322, counted by A086543 (even bisection of A182616).
A031368 lists primes of odd index, even A031215.
A066207 ranks partitions with all even parts, counted by A035363.
A066208 ranks partitions with all odd parts, counted by A000009.
A112798 lists prime indices, sum A056239.
A257991 counts odd prime indices, distinct A324966.
A257992 counts even prime indices, distinct A324967.
Cf. A000720, A001222, A003963, A026804, A244991, A257992.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Or@@EvenQ/@prix[#]&&Or@@OddQ/@prix[#]&]

Intersection of A324929 and A366322.

A366750 Number of strict integer partitions of n into odd parts with a common divisor > 1.

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 2, 1, 0, 2, 1, 1, 3, 1, 0, 2, 0, 1, 3, 1, 0, 3, 2, 1, 4, 1, 1, 5, 0, 1, 5, 1, 2, 5, 1, 1, 5, 2, 2, 6, 0, 1, 9, 1, 0, 9, 0, 3, 9, 1, 1, 9, 5, 1, 11, 1, 0, 15, 1, 2, 13, 1, 5, 14, 0, 1, 18

Offset: 0

Gus Wiseman, Nov 01 2023

nonn

			The a(n) partitions for n = 3, 24, 30, 42, 45, 57, 60:
  (3)  (15,9)  (21,9)  (33,9)   (45)       (57)       (51,9)
       (21,3)  (25,5)  (35,7)   (33,9,3)   (45,9,3)   (55,5)
               (27,3)  (39,3)   (21,15,9)  (27,21,9)  (57,3)
                       (27,15)  (25,15,5)  (33,15,9)  (33,27)
                                (27,15,3)  (33,21,3)  (35,25)
                                           (39,15,3)  (39,21)
                                                      (45,15)
                                                      (27,21,9,3)
                                                      (33,15,9,3)

This is the case of A000700 with a common divisor.
Including evens gives A303280.
The complement is counted by A366844, non-strict version A366843.
The non-strict version is A366852, with evens A018783.
A000041 counts integer partitions, strict A000009 (also into odds).
A051424 counts pairwise coprime partitions, for odd parts A366853.
A113685 counts partitions by sum of odd parts, rank statistic A366528.
A168532 counts partitions by gcd.
Cf. A000837, A007360, A055922, A066208, A078374, A302697, A337485, A366842, A366845, A366848.

Table[Length[Select[IntegerPartitions[n], And@@OddQ/@#&&UnsameQ@@#&&GCD@@#>1&]], {n,0,30}]

from math import gcd
from sympy.utilities.iterables import partitions
def A366750(n): return sum(1 for p in partitions(n) if all(d==1 for d in p.values()) and all(d&1 for d in p) and gcd(*p)>1) # Chai Wah Wu, Nov 02 2023

More terms from Chai Wah Wu, Nov 02 2023

A366784 Sum of even indices of distinct prime factors of n divided by 2.

Original entry on oeis.org

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

Offset: 1

Ilya Gutkovskiy, Oct 24 2023

nonn

			a(315) = 3 because 315 = 3^2 * 5 * 7 = prime(2)^2 * prime(3) * prime(4) and (2 + 4) / 2 = 3.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000720 (pi), A066208 (positions of 0's), A066328, A324967, A332422, A344931, A366533, A366725.

nmax = 100; CoefficientList[Series[Sum[k x^Prime[2 k]/(1 - x^Prime[2 k]), {k, 1, nmax}], {x, 0, nmax}], x] // Rest
f[p_, e_] := Module[{i = PrimePi[p]}, If[EvenQ[i], i/2, 0]]; a[1] = 0; a[n_] := Plus @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Jul 03 2025 *)

f(n) = if(n % 2, 0, n/2);
a(n) = vecsum(apply(x -> f(primepi(x)), factor(n)[, 1])); \\ Amiram Eldar, Jul 03 2025

G.f.: Sum_{k>=1} k * x^prime(2*k) / (1 - x^prime(2*k)).
From Amiram Eldar, Jul 03 2025: (Start)
Additive with a(p^e) = pi(p)/2 if pi(p) is even, and 0 otherwise.
a(n) = (A066328(n) - A366725(n))/2. (End)

A379313 Positive integers whose prime indices are not all composite.

Original entry on oeis.org

2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 14, 15, 16, 17, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 62, 63, 64, 65, 66, 67, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 81, 82

Offset: 1

Gus Wiseman, Dec 28 2024

nonn

Or, positive integers whose prime indices include at least one 1 or prime number.

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The terms together with their prime indices begin:
     2: {1}
     3: {2}
     4: {1,1}
     5: {3}
     6: {1,2}
     8: {1,1,1}
     9: {2,2}
    10: {1,3}
    11: {5}
    12: {1,1,2}
    14: {1,4}
    15: {2,3}
    16: {1,1,1,1}
    17: {7}
    18: {1,2,2}
    20: {1,1,3}
    21: {2,4}
    22: {1,5}
    24: {1,1,1,2}

Partitions of this type are counted by A000041 - A023895.
The "old" primes are listed by A008578.
For no composite parts we have A302540, counted by A034891 (strict A036497).
The complement is A320629, counted by A023895 (strict A204389).
For a unique prime we have A331915, counted by A379304 (strict A379305).
Positions of nonzeros in A379311.
For a unique 1 or prime we have A379312, counted by A379314 (strict A379315).
A000040 lists the prime numbers, differences A001223.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A080339 is the characteristic function for the old prime numbers.
A376682 gives k-th differences of old prime numbers, see A030016, A075526.
A377033 gives k-th differences of composite numbers, see A073445, A377034.
Other counts of prime indices:
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A000586, A000607, A076610, A331386.
- A330944 nonprime, see A002095, A096258, A320628, A330945.
- A379306 squarefree, see A302478, A379308, A379309, A379316.
- A379310 nonsquarefree, see A114374, A256012, A379307.
`Cf. A038550, A087436, A173390, A379300, A379301.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!And@@CompositeQ/@prix[#]&]

cp's OEIS Frontend

A366839 Sum of even prime factors of 2n, counted with multiplicity.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

A366840 Sum of odd prime factors of n, counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

A366853 Number of integer partitions of n into odd, pairwise coprime parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A300351 Triangle whose n-th row lists in order all Heinz numbers of integer partitions of n into odd parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A346634 Number of strict odd-length integer partitions of 2n + 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A366529 Heinz numbers of integer partitions of even numbers with at least one even part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A366532 Heinz numbers of integer partitions with at least one even and odd part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A366750 Number of strict integer partitions of n into odd parts with a common divisor > 1.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

Extensions

A366784 Sum of even indices of distinct prime factors of n divided by 2.