A236102 -id:A236102 - cp's OEIS frontend

A236103 Number of distinct partition numbers dividing n.

1, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 3, 1, 3, 4, 2, 1, 3, 1, 3, 3, 4, 1, 3, 2, 2, 2, 3, 1, 6, 1, 2, 3, 2, 3, 3, 1, 2, 2, 3, 1, 5, 1, 4, 4, 2, 1, 3, 2, 3, 2, 2, 1, 3, 3, 4, 2, 2, 1, 6, 1, 2, 3, 2, 2, 5, 1, 2, 2, 4, 1, 3, 1, 2, 4, 2, 4, 3, 1, 3, 2, 2, 1, 5, 2, 2, 2, 4, 1, 6

Offset: 1

Omar E. Pol, Jan 21 2014

nonn

			For n = 20 the divisors of 20 are 1, 2, 4, 5, 10, 20 and three of them are also partition numbers: 1, 2, 5, so a(20) = 3.
For n = 42 the divisors of 42 are 1, 2, 3, 6, 7, 14, 21, 42 and five of them are also partition numbers: 1, 2, 3, 7, 42, so a(42) = 5.

Giovanni Resta, Table of n, a(n) for n = 1..10000

Cf. A000041, A001221, A049575, A078506, A085543, A167392, A236102, A236105, A236107, A236108.

p = {1}; Table[If[n >= Last@p, AppendTo[p, PartitionsP[1 + Length@p]]]; Length@Select[p, Mod[n, #] == 0 &], {n, 90}] (* Giovanni Resta, Jan 22 2014 *)

From Amiram Eldar, Jan 01 2024: (Start)
a(n) = Sum_{d|n} A167392(d).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A078506 = 2.510597... . (End)

A236108 Nonprimes whose proper divisors are partition numbers.

Original entry on oeis.org

4, 6, 9, 10, 14, 15, 21, 22, 25, 33, 35, 49, 55, 77, 121, 202, 303, 505, 707, 1111, 10201, 35954, 53931, 89885, 125839, 197747, 1815677, 21239726, 31859589, 53099315, 74339041, 116818493, 323172529, 1072606163, 13241661778, 19862492667, 33104154445, 46345816223, 72829139779

Offset: 1

Omar E. Pol, Jan 22 2014

nonn

Known terms are squares of A049575 or products of 2 distinct terms of A049575. - Michel Marcus, Jan 25 2023

This conjecture holds for terms <= 10^16. - David A. Corneth, Jan 25 2023

			10 is in the sequence because 10 is a nonprime number and the proper divisors of 10 are 1, 2, 5, which are also partition numbers.

David A. Corneth, Table of n, a(n) for n = 1..81

Cf. A000041, A018252, A049575, A167392.

Cf. A236102, A236103, A236105, A236107, A236110.

isA000041 := proc(n)
    local k,P;
    for k from 1 do
        P := combinat[numbpart](k) ;
        if P > n then
            return false;
        elif P = n then
            return true ;
        end if;
    end do:
end proc:
isA236108 := proc(n)
    local pdvs,d ;
    if n =1 or isprime(n) then
        return false;
    end if;
    pdvs := numtheory[divisors](n) minus {n} ;
    for d in pdvs do
        if not isA000041(d) then
            return false;
        end if;
    end do:
    return true;
end proc:
for n from 1 to 300000 do
    if isA236108(n) then
        printf("%d,",n) ;
    end if;
end do: # R. J. Mathar, Jan 29 2014

partitionNumbers = Table[PartitionsP[n], {n, 1, 1000}];
Select[Range[2, 10000],
 If[! PrimeQ[#],
ContainsOnly[Divisors[#][[2 ;; -2]], partitionNumbers]] &] (* Julien Kluge, Dec 03 2016 *)

a(17)-a(26) from R. J. Mathar, Jan 29 2014
a(27)-a(32) from Jon E. Schoenfield, Feb 05 2014
a(33)-a(34) from Michel Marcus, Jan 24 2023
More terms from David A. Corneth, Jan 25 2023

A236105 Numbers whose proper divisors are partition numbers.

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 29, 31, 33, 35, 37, 41, 43, 47, 49, 53, 55, 59, 61, 67, 71, 73, 77, 79, 83, 89, 97, 101, 103, 107, 109, 113, 121, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 202

Offset: 1

Omar E. Pol, Jan 21 2014

nonn

All prime numbers are in the sequence.

All terms of A236102 are in this sequence, except the first term.

			10 is in the sequence because the proper divisors of 10 are 1, 2, 5, which are also partition numbers.

Cf. A000040, A000041, A236102, A236103, A236107, A236108, A236110.

A236107 Nonprimes whose divisors are partition numbers.

Original entry on oeis.org

1, 15, 22, 77

Offset: 1

Omar E. Pol, Jan 22 2014

By definition all terms are partition numbers.

Conjecture: no terms exist beyond 77. - Jon E. Schoenfield, Feb 05 2014

			15 is in the sequence because 15 is a nonprime number and the divisors of 15 are 1, 3, 5, 15, which are also partition numbers.

Cf. A000041, A018252, A038753, A236102, A236103, A236105, A236108, A236110.

nmax = 1000;
pp = PartitionsP[Range[nmax]];
selQ[n_] := Module[{dd = Divisors[n]}, Intersection[pp, dd] == dd];
Select[Range[nmax], !PrimeQ[#] && selQ[#]&] (* Jean-François Alcover, Apr 09 2020 *)

A236110 Smallest number with the property that exactly n of its divisors are partition numbers.

Original entry on oeis.org

1, 2, 6, 15, 42, 30, 270, 210, 462, 1848, 3696, 11088, 2310, 9240, 18480, 55440, 83160, 166320, 498960, 2494800, 17463600, 331808400, 4418290800

Offset: 1

Omar E. Pol, Jan 22 2014

			a(3) = 6 because 6 is the smallest number with the property that exactly three of its divisors are partition numbers. The divisors of 6 are 1, 2, 3, 6, and 1, 2, 3 are also partition numbers.
a(5) = 42 because 42 is the smallest number with the property that exactly five of its divisors are partition numbers. The divisors of 42 are 1, 2, 3, 6, 7, 14, 21, 42, and 1, 2, 3, 7, 42 are members of A000041.

Cf. A000041, A236102, A236103, A236105, A236107, A236108, A236111.

a(12) and a(15)-a(18) from Alois P. Heinz, Jan 22 2014
a(19)-a(22) from Giovanni Resta, Feb 06 2014
a(23) from Amiram Eldar, Jun 23 2023

A236111 Numbers that set a record for the number of divisors that are partition numbers.

Original entry on oeis.org

1, 2, 6, 15, 30, 210, 462, 1848, 2310, 9240, 18480, 55440, 83160, 166320, 498960, 2494800, 17463600, 331808400, 4418290800

Offset: 1

Omar E. Pol, Jan 22 2014

Where records occur in A236103.

Cf. A000041, A236102, A236103, A236105, A236107, A236108, A236110.

More terms from Jon E. Schoenfield, Feb 08 2014

a(18)-a(19) from Amiram Eldar, Jun 23 2023

cp's OEIS Frontend

A236103 Number of distinct partition numbers dividing n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A236108 Nonprimes whose proper divisors are partition numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A236105 Numbers whose proper divisors are partition numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs

A236107 Nonprimes whose divisors are partition numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A236110 Smallest number with the property that exactly n of its divisors are partition numbers.

Views

Author

Keywords

Examples

Crossrefs

Extensions

A236111 Numbers that set a record for the number of divisors that are partition numbers.

Views

Author

Keywords

Comments

Crossrefs

Extensions