A326715 -id:A326715 - cp's OEIS frontend

A340827 Number of strict integer partitions of n into divisors of n whose length also divides n.

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 5, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 5, 1, 1, 1, 3, 1, 2, 1, 1, 1, 1, 1, 6, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 25, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 18, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 17, 1, 1, 1, 1, 1, 14, 1, 1, 1, 1, 1, 12, 1, 1, 1, 3, 1, 2, 1, 1, 1

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

The first element not in A326715 that is however a Heinz number of these partitions is 273.

			The a(n) partitions for n = 6, 12, 24, 90, 84:
  6       12        24            90                      84
  3,2,1   6,4,2     12,8,4        45,30,15                42,28,14
          6,3,2,1   12,6,4,2      45,30,9,5,1             42,21,14,7
                    12,8,3,1      45,18,15,9,3            42,28,12,2
                    8,6,4,3,2,1   45,30,10,3,2            42,28,6,4,3,1
                                  45,18,15,10,2           42,28,7,4,2,1
                                  45,30,6,5,3,1           42,14,12,7,6,3
                                  45,30,9,3,2,1           42,21,12,4,3,2
                                  45,15,10,9,6,5          42,21,12,6,2,1
                                  45,18,10,9,5,3          42,21,14,4,2,1
                                  45,18,10,9,6,2          28,21,14,12,6,3
                                  45,18,15,6,5,1          28,21,14,12,7,2
                                  45,18,15,9,2,1          42,21,7,6,4,3,1
                                  30,18,15,10,6,5,3,2,1   42,14,12,7,4,3,2
                                                          42,14,12,7,6,2,1
                                                          28,21,14,12,4,3,2
                                                          28,21,14,12,6,2,1

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 2519 terms from Antti Karttunen)
Antti Karttunen, Scheme program for computing this sequence

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A326842 (A326847).
A018818 = partitions using divisors (A326841).
A047993 = balanced partitions (A106529).
A067538 = partitions whose length/maximum divides sum (A316413/A326836).
A072233 = partitions by sum and length, with strict case A008289.
A102627 = strict partitions whose length divides sum.
A326850 = strict partitions whose maximum part divides sum.
A326851 = strict partitions w/ length and max dividing sum.
A340828 = strict partitions w/ length divisible by max.
A340829 = strict partitions w/ Heinz number divisible by sum.
A340830 = strict partitions w/ parts divisible by length.
Cf. A064173, A143773 (A316428), A168659, A326843 (A326837), A326852, A330950 (A324851), A340851, A340853.

Table[Length[Select[IntegerPartitions[n,All,Divisors[n]],UnsameQ@@#&&Divisible[n,Length[#]]&]],{n,30}]

A340827(n, divsleft=List(divisors(n)), rest=n, len=0) = if(rest<=0, !rest && !(n%len), my(s=0, d); forstep(i=#divsleft, 1, -1, d = divsleft[i]; listpop(divsleft,i); if(rest>=d, s += A340827(n, divsleft, rest-d, 1+len))); (s)); \\ Antti Karttunen, Feb 22 2023

;; See the Links-section. - Antti Karttunen, Feb 22 2023

Data section extended up to a(105) by Antti Karttunen, Feb 22 2023

A346551 3-Sondow numbers: numbers k such that p^s divides k/p + 3 for every prime power divisor p^s of k.

Original entry on oeis.org

1, 2, 10, 18, 126, 5418, 141174, 6643507266, 157486189806

Offset: 1

José María Grau Ribas, Dec 04 2021

Numbers k such that A235137(k) == 3 (mod k).
A positive integer k is a 3-Sondow number if satisfies any of the following equivalent properties:
1) p^s divides k/p + 3 for every prime power divisor p^s of k.
2) 3/k + Sum_{prime p|k} 1/p is an integer.
3) 3 + Sum_{prime p|k} k/p == 0 (mod k).
4) Sum_{i=1..k} i^phi(k) == 3 (mod k).

Github, Jonathan Sondow (1943 - 2020)
J. M. Grau, A. M. Oller-Marcén, and D. Sadornil, On µ-Sondow Numbers, arXiv:2111.14211 [math.NT], 2021.
J. M. Grau, A. M. Oller-Marcen and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n, arXiv:1309.7941 [math.NT], 2013-2014.

Cf. A054377, A007850, A235137, A348058, A348059.
(-1) and (-2) -Sondow numbers: A326715, A330069.
1-Sondow to 9-Sondow numbers: A349193, A330068, A346551, A346552, A346553, A346554, A346555, A346556, A346557.

Sondow[mu_][n_]:= Sondow[mu][n]= Module[{fa=FactorInteger[n]},IntegerQ[mu/n+Sum[1/fa[[i,1]],{i,Length[fa]}]]]
Select[Range[1000000],Sondow[3][#]&]

a(8)-a(9) from Martin Ehrenstein, Dec 31 2021

A346552 4-Sondow numbers: numbers k such that p^s divides k/p + 4 for every prime power divisor p^s of k.

Original entry on oeis.org

1, 5, 8, 24, 168, 7224, 188232, 8858009688, 209981586408

Offset: 1

José María Grau Ribas, Jan 11 2022

Numbers k such that A235137(k) == 4 (mod k).
A positive integer k is a 4-Sondow number if satisfies any of the following equivalent properties:
1) p^s divides k/p + 4 for every prime power divisor p^s of k.
2) 4/k + Sum_{prime p|k} 1/p is an integer.
3) 4 + Sum_{prime p|k} k/p == 0 (mod k).
4) Sum_{i=1..k} i^phi(k) == 4 (mod k).
Other numbers in the sequence: 8858009688, 209981586408, 33961686334238753642827085044344

Github, Jonathan Sondow (1943 - 2020)
J. M. Grau, A. M. Oller-Marcén and D. Sadornil, On µ-Sondow Numbers, arXiv:2111.14211 [math.NT], 2021.
J. M. Grau, A. M. Oller-Marcen and J. Sondow, On the congruence 1^n + 2^n + ... + n^n = d (mod n), where d divides n, arXiv:1309.7941 [math.NT], 2013-2014.

Cf. A054377, A007850, A235137, A348058, A348059.
(-1) and (-2) -Sondow numbers: A326715, A330069.
1-Sondow to 9-Sondow numbers: A349193, A330068, A346551, A346552, A346553, A346554, A346555, A346556, A346557.

Sondow[mu_][n_]:=Sondow[mu][n]=Module[{fa=FactorInteger[n]},IntegerQ[mu/n+Sum[1/fa[[i,1]],{i,Length[fa]}]]]
Select[Range[10000000],Sondow[4][#]&]

isok(k) = {my(f=factor(k)); for (i=1, #f~, my(p=f[i,1]); for (j=1, f[i,2], if ((k/p + 4) % p^j, return(0)));); return(1);} \\ Michel Marcus, Jan 17 2022

a(8)-a(9) verified by Martin Ehrenstein, Jan 21 2022

A346553 5-Sondow numbers: numbers k such that p^s divides k/p + 5 for every prime power divisor p^s of k.

Original entry on oeis.org

1, 2, 3, 14, 66, 1974, 307146, 3270666, 42404405538, 318501038226

Offset: 1

José María Grau Ribas, Jan 16 2022

Numbers k such that A235137(k) == 5 (mod k).
A positive integer k is a 5-Sondow number if satisfies any of the following equivalent properties:
1) p^s divides k/p + 5 for every prime power divisor p^s of k.
2) 5/k + Sum_{prime p|k} 1/p is an integer.
3) 5 + Sum_{prime p|k} k/p == 0 (mod k).
4) Sum_{i=1..k} i^phi(k) == 5 (mod k).

Github, Jonathan Sondow (1943 - 2020)
J. M. Grau, A. M. Oller-Marcén and D. Sadornil, On µ-Sondow Numbers, arXiv:2111.14211 [math.NT], 2021.
J. M. Grau, A. M. Oller-Marcen and J. Sondow, On the congruence 1^n + 2^n + ... + n^n = d (mod n), where d divides n, arXiv:1309.7941 [math.NT], 2013-2014.

Cf. A054377, A007850, A235137, A348058, A348059.
(-1) and (-2) -Sondow numbers: A326715, A330069.
1-Sondow to 9-Sondow numbers: A349193, A330068, A346551, A346552, A346553, A346554, A346555, A346556, A346557.

Sondow[mu_][n_]:=Sondow[mu][n]=Module[{fa=FactorInteger[n]}, IntegerQ[mu/n+Sum[1/fa[[i, 1]], {i, Length[fa]}]]]
Select[Range[10^7], Sondow[5][#]&]

isok(k) = {my(f=factor(k)); for (i=1, #f~, my(p=f[i,1]); for (j=1, f[i,2], if ((k/p + 5) % p^j, return(0)));); return(1);} \\ Michel Marcus, Jan 17 2022

a(9)-a(10) from Martin Ehrenstein, Jan 19 2022

A346554 6-Sondow numbers: numbers k such that p^s divides k/p + 6 for every prime power divisor p^s of k.

Original entry on oeis.org

1, 4, 7, 9, 20, 36, 252, 10836, 282348, 13287014532, 314972379612

Offset: 1

José María Grau Ribas, Jan 16 2022

Numbers k such that A235137(k) == 6 (mod k).
A positive integer k is a 6-Sondow number if satisfies any of the following equivalent properties:
1) p^s divides k/p + 6 for every prime power divisor p^s of k.
2) 6/k + Sum_{prime p|k} 1/p is an integer.
3) 6 + Sum_{prime p|k} k/p == 0 (mod k).
4) Sum_{i=1..k} i^phi(k) == 6 (mod k).
Other numbers in the sequence: 13287014532, 314972379612, 50942529501358130464240627566516

Github, Jonathan Sondow (1943 - 2020)
J. M. Grau, A. M. Oller-Marcén and D. Sadornil, On µ-Sondow Numbers, arXiv:2111.14211 [math.NT], 2021.
J. M. Grau, A. M. Oller-Marcen and J. Sondow, On the congruence 1^n + 2^n + ... + n^n = d (mod n), where d divides n, arXiv:1309.7941 [math.NT], 2013-2014.

Cf. A054377, A007850, A235137, A348058, A348059.
(-1) and (-2) -Sondow numbers: A326715, A330069.
1-Sondow to 9-Sondow numbers: A349193, A330068, A346551, A346552, A346553, A346554, A346555, A346556, A346557.

Sondow[mu_][n_]:=Sondow[mu][n]=Module[{fa=FactorInteger[n]},IntegerQ[mu/n+Sum[1/fa[[i,1]],{i,Length[fa]}]]]
Select[Range[10000000],Sondow[6][#]&]

isok(k) = {my(f=factor(k)); for (i=1, #f~, my(p=f[i,1]); for (j=1, f[i,2], if ((k/p + 6) % p^j, return(0)));); return(1);} \\ Michel Marcus, Jan 17 2022

a(10)-a(11) verified by Martin Ehrenstein, Jan 21 2022

A346555 7-Sondow numbers: numbers k such that p^s divides k/p + 7 for every prime power divisor p^s of k.

Original entry on oeis.org

1, 2, 6, 15, 78, 294, 12642, 539026980558

Offset: 1

José María Grau Ribas, Feb 04 2022

Numbers k such that A235137(k) == 7 (mod k).
A positive integer k is a 7-Sondow number if satisfies any of the following equivalent properties:
1) p^s divides k/p + 7 for every prime power divisor p^s of k.
2) 7/k + Sum_{prime p|k} 1/p is an integer.
3) 7 + Sum_{prime p|k} k/p == 0 (mod k).
4) Sum_{i=1..k} i^phi(k) == 7 (mod k).

Github, Jonathan Sondow (1943 - 2020)
J. M. Grau, A. M. Oller-Marcén and D. Sadornil, On µ-Sondow Numbers, arXiv:2111.14211 [math.NT], 2021.
J. M. Grau, A. M. Oller-Marcen and J. Sondow, On the congruence 1^n + 2^n + ... + n^n = d (mod n), where d divides n, arXiv:1309.7941 [math.NT], 2013-2014.

Cf. A054377, A007850, A235137, A348058, A348059.
(-1) and (-2) -Sondow numbers: A326715, A330069.
1-Sondow to 9-Sondow numbers: A349193, A330068, A346551, A346552, A346553, A346554, this sequence, A346556, A346557.

Sondow[mu_][n_]:=Sondow[mu][n]=Module[{fa=FactorInteger[n]},IntegerQ[mu/n+Sum[1/fa[[i,1]],{i,Length[fa]}]]]
Select[Range[10000000],Sondow[7][#]&]

a(8) from Martin Ehrenstein, Feb 04 2022

A346556 8-Sondow numbers: numbers k such that p^s divides k/p + 8 for every prime power divisor p^s of k.

Original entry on oeis.org

1, 3, 16, 48, 336, 14448, 376464, 17716019376, 419963172816

Offset: 1

José María Grau Ribas, Feb 04 2022

Numbers k such that A235137(k) == 8 (mod k).
A positive integer k is a 8-Sondow number if satisfies any of the following equivalent properties:
1) p^s divides k/p + 8 for every prime power divisor p^s of k.
2) 8/k + Sum_{prime p|k} 1/p is an integer.
3) 8 + Sum_{prime p|k} k/p == 0 (mod k).
4) Sum_{i=1..k} i^phi(k) == 8 (mod k).
Other numbers in the  sequence: 17716019376, 419963172816, 67923372668477507285654170088688

Github, Jonathan Sondow (1943 - 2020)
J. M. Grau, A. M. Oller-Marcén and D. Sadornil, On µ-Sondow Numbers, arXiv:2111.14211 [math.NT], 2021.
J. M. Grau, A. M. Oller-Marcen and J. Sondow, On the congruence 1^n + 2^n + ... + n^n = d (mod n), where d divides n, arXiv:1309.7941 [math.NT], 2013-2014.

Cf. A054377, A007850, A235137, A348058, A348059.
(-1) and (-2) -Sondow numbers: A326715, A330069.
1-Sondow to 9-Sondow numbers: A349193, A330068, A346551, A346552, A346553, A346554, A346555, this sequence, A346557.

Sondow[mu_][n_]:=Sondow[mu][n]=Module[{fa=FactorInteger[n]},IntegerQ[mu/n+Sum[1/fa[[i,1]],{i,Length[fa]}]]]
Select[Range[400000],Sondow[8][#]&]

a(8)-a(9) verified by Martin Ehrenstein, Feb 04 2022

A346557 9-Sondow numbers: numbers k such that p^s divides k/p + 9 for every prime power divisor p^s of k.

Original entry on oeis.org

1, 2, 5, 22, 54, 378, 16254, 423522, 19930521798, 472458569418

Offset: 1

José María Grau Ribas, Feb 04 2022

Numbers k such that A235137(k) == 9 (mod k).
A positive integer k is a 9-Sondow number if satisfies any of the following equivalent properties:
1) p^s divides k/p + 9 for every prime power divisor p^s of k.
2) 9/k + Sum_{prime p|k} 1/p is an integer.
3) 9 + Sum_{prime p|k} k/p == 0 (mod k).
4) Sum_{i=1..k} i^phi(k) == 9 (mod k).
Other numbers in the sequence: 19930521798, 472458569418, 76413794252037195696360941349774

Github, Jonathan Sondow (1943 - 2020)
J. M. Grau, A. M. Oller-Marcén and D. Sadornil, On µ-Sondow Numbers, arXiv:2111.14211 [math.NT], 2021.
J. M. Grau, A. M. Oller-Marcen and J. Sondow, On the congruence 1^n + 2^n + ... + n^n = d (mod n), where d divides n, arXiv:1309.7941 [math.NT], 2013-2014.

Cf. A054377, A007850, A235137, A348058, A348059.
(-1) and (-2) -Sondow numbers: A326715, A330069.
1-Sondow to 9-Sondow numbers: A349193, A330068, A346551, A346552, A346553, A346554, A346555, A346556, this sequence.

Sondow[mu_][n_]:=Sondow[mu][n]=Module[{fa=FactorInteger[n]},IntegerQ[mu/n+Sum[1/fa[[i,1]],{i,Length[fa]}]]]
Select[Range[1000000],Sondow[9][#]&]

a(9)-a(10) verified by Martin Ehrenstein, Feb 04 2022

A349193 1-Sondow numbers: numbers j such that p divides j/p + 1 for every prime divisor p of j.

Original entry on oeis.org

1, 2, 6, 42, 1806, 47058, 2214502422, 52495396602, 8490421583559688410706771261086

Offset: 1

José María Grau Ribas, Nov 10 2021

nonn

These are the weak primary pseudoperfect numbers mentioned in Grau-Oller-Sondow (2013).
Includes the primary pseudoperfect numbers (A054377). Any weak primary pseudoperfect number which is not a primary pseudoperfect number must have more than 58 distinct prime factors, and therefore must be greater than 10^110; none are known.
A positive integer j is a k-Sondow number if satisfies any of the following equivalent properties:
1) p^s divides j/p + k for every prime power divisor p^s of j.
2) k/j + Sum_{prime p|j} 1/p is an integer.
3) k + Sum_{prime p|j} j/p == 0 (mod j).
4) Sum_{i=1..j} i^A000010(j) == k (mod j).
Numbers m such that A235137(m) == 1 (mod m).

Github, Jonathan Sondow (1943 - 2020)
J. M. Grau, A. M. Oller-Marcén, and D. Sadornil, On µ-Sondow Numbers, arXiv:2111.14211 [math.NT], 2021.
J. M. Grau, A. M. Oller-Marcen and J. Sondow, On the congruence 1^n + 2^n + ... + n^n = d (mod n), where d divides n, arXiv:1309.7941 [math.NT], 2013.

Cf. A000010, A054377, A007850, A235137, A348058, A348059.
(-1) and (-2)-Sondow numbers: A326715, A330069.
2-Sondow to 9-Sondow numbers: A330068, A346551, A346552, A346553, A346554, A346555, A346556, A346557.

Sondow[mu_][n_]:= Sondow[mu][n]= Module[{fa=FactorInteger[n]},IntegerQ[mu/n+Sum[1/fa[[i,1]],{i,Length[fa]}]]];
Select[Range[100000],Sondow[1][#]&]

A326691 a(n) = n/denominator(Sum_{prime p | n} 1/p - 1/n).

Original entry on oeis.org

1, 2, 3, 1, 5, 2, 7, 1, 1, 2, 11, 3, 13, 2, 1, 1, 17, 2, 19, 1, 3, 2, 23, 1, 1, 2, 1, 1, 29, 30, 31, 1, 1, 2, 1, 1, 37, 2, 3, 1, 41, 2, 43, 1, 1, 2, 47, 3, 1, 2, 1, 1, 53, 2, 5, 7, 3, 2, 59, 1, 61, 2, 1, 1, 1, 6, 67, 1, 1, 2, 71, 1, 73, 2, 3, 1, 1, 2, 79

Offset: 1

Jonathan Sondow, Jul 20 2019

nonn

Denominator(Sum_{prime p | n} 1/p - 1/n) is a factor of n, since all primes in the sum divide n. So a(n) is an integer.

			a(18) = 18/denominator(Sum_{prime p | 18} 1/p - 1/18) = 18/denominator(1/2 + 1/3 - 1/18) = 18/denominator(7/9) = 18/9 = 2.
a(30) = 30/denominator(Sum_{prime p | 30} 1/p - 1/30) = 30/denominator(1/2 + 1/3 + 1/5 - 1/30) = 30/denominator(1/1) = 30/1 = 30, and 30 is a Giuga number.

Antti Karttunen, Table of n, a(n) for n = 1..20000
Christian Krause, et al, LODA, an assembly language, a computational model and a tool for mining integer sequences
Wikipedia, Giuga number

Cf. A003415, A007850, A326689, A326690, A326692, A326715.

PrimeFactors[n_] := Select[Divisors[n], PrimeQ];
f[n_] := Denominator[Sum[1/p, {p, PrimeFactors[n]}] - 1/n];
Table[n/f[n], {n, 79}]

A326691(n) = (n/A326690(n)); \\ Antti Karttunen, Mar 15 2021

a(n) = n/A326690(n).
a(n) = n > 1 iff n is either a prime or a Giuga number A007850.
a(n) = gcd(n, 1+((n-1)*A003415(n))). [Conjectured, after an empirical formula found by LODA miner. This holds at least up to n=2^27] - Antti Karttunen, Mar 15 2021

cp's OEIS Frontend

A340827 Number of strict integer partitions of n into divisors of n whose length also divides n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Scheme

Extensions

A346551 3-Sondow numbers: numbers k such that p^s divides k/p + 3 for every prime power divisor p^s of k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions

A346552 4-Sondow numbers: numbers k such that p^s divides k/p + 4 for every prime power divisor p^s of k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A346553 5-Sondow numbers: numbers k such that p^s divides k/p + 5 for every prime power divisor p^s of k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A346554 6-Sondow numbers: numbers k such that p^s divides k/p + 6 for every prime power divisor p^s of k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A346555 7-Sondow numbers: numbers k such that p^s divides k/p + 7 for every prime power divisor p^s of k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions

A346556 8-Sondow numbers: numbers k such that p^s divides k/p + 8 for every prime power divisor p^s of k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions

A346557 9-Sondow numbers: numbers k such that p^s divides k/p + 9 for every prime power divisor p^s of k.

Views

Author