A325351 -id:A325351 - cp's OEIS frontend

A359358 Let y be the integer partition with Heinz number n. Then a(n) is the size of the Young diagram of y after removing a rectangle of the same length as y and width equal to the smallest part of y.

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

Offset: 1

Gus Wiseman, Dec 27 2022

nonn

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

			The partition with Heinz number 7865 is (6,5,5,3), which has the following diagram. The 3 X 4 rectangle is shown in dots.
  . . . o o o
  . . . o o
  . . . o o
  . . .
The size of the complement is 7, so a(7865) = 7.

The opposite version is A326844.
Row sums of A356958 are a(n) + A001222(n) - 1, Heinz numbers A246277.
A055396 gives minimum prime index, maximum A061395.
A112798 list prime indices, sum A056239.
A243055 subtracts the least prime index from the greatest.
A326846 = size of the smallest rectangle containing the prime indices of n.
A358195 gives Heinz numbers of rows of A358172, even bisection A241916.
Cf. A124010, A243503, A268192, A316413, A325351, A325352, A326836, A326837, A355534, A359360.

Table[If[n==1,0,With[{q=Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]},Total[q]-q[[1]]*Length[q]]],{n,100}]

a(n) = A056239(n) - A001222(n) * A055396(n).

a(n) = A056239(n) - A359360(n).

A325459 Sum of numbers of nontrivial divisors (greater than 1 and less than k) of k for k = 1..n.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 3, 3, 5, 6, 8, 8, 12, 12, 14, 16, 19, 19, 23, 23, 27, 29, 31, 31, 37, 38, 40, 42, 46, 46, 52, 52, 56, 58, 60, 62, 69, 69, 71, 73, 79, 79, 85, 85, 89, 93, 95, 95, 103, 104, 108, 110, 114, 114, 120, 122, 128, 130, 132, 132, 142

Offset: 0

Gus Wiseman, May 04 2019

nonn

Also the number of integer partitions of n that are not hooks but whose augmented differences are hooks (original name). The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and otherwise aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

This sequence counts integer partitions with any number of ones and one part > 1 which appears at least twice. The Heinz numbers of these partitions are given by A325359.

			The a(4) = 1 through a(10) = 8 partitions:
  (22)  (221)  (33)    (331)    (44)      (333)      (55)
               (222)   (2221)   (2222)    (441)      (3331)
               (2211)  (22111)  (3311)    (22221)    (4411)
                                (22211)   (33111)    (22222)
                                (221111)  (222111)   (222211)
                                          (2211111)  (331111)
                                                     (2221111)
                                                     (22111111)

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

Cf. A049988, A093641, A325349, A325351, A325355, A325356, A325357, A325358.

Cf. A070824, A006218.

a:= proc(n) option remember; `if`(n<2, 0,
      numtheory[tau](n)-2+a(n-1))
    end:
seq(a(n), n=0..100);  # Alois P. Heinz, Oct 11 2019

Table[Length[Select[IntegerPartitions[n],MatchQ[#,{x_,y__,1...}/;x>1&&SameQ[x,y]]&]],{n,0,30}]
(* Second program: *)
a[n_] := a[n] = If[n<2, 0, DivisorSigma[0, n] - 2 + a[n-1]];
a /@ Range[0, 100] (* Jean-François Alcover, May 20 2021, after Alois P. Heinz *)

from math import isqrt
def A325459(n): return 0 if n == 0 else (lambda m: 2*(sum(n//k for k in range(1, m+1))-n)+(1-m)*(1+m))(isqrt(n)) # Chai Wah Wu, Oct 07 2021

From M. F. Hasler, Oct 11 2019: (Start)
a(n) = A006218(n) - 2*n + 1, in terms of partial sums of number of divisors.
a(n) = Sum_{k=1..n} A070824(k): partial sums of A070824 = number of nontrivial divisors. (End)

Name changed at the suggestion of Patrick James Smalley-Wall and Luc Rousseau by Gus Wiseman, Oct 11 2019

A329143 Number of integer partitions of n whose augmented differences are a periodic word.

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 1, 1, 3, 2, 2, 3, 2, 2, 4, 4, 5, 3, 5, 2, 10, 5, 6, 5, 10, 5, 11, 7, 13, 6, 15, 6, 20, 11, 18, 12, 27, 8, 27, 16, 32, 14, 35, 14, 42, 23, 43, 17, 56, 17, 61, 31, 67, 25, 78, 28, 88, 41, 89, 35, 119, 39, 116, 60, 131, 52, 154, 52, 170, 75, 182

Offset: 0

Gus Wiseman, Nov 10 2019

nonn

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

A finite sequence is periodic if its cyclic rotations are not all different.

			The a(n) partitions for n = 2, 5, 8, 14, 16, 22:
  11  32     53        95              5533              7744
      11111  3221      5432            7441              9652
             11111111  32222111        533311            554332
                       11111111111111  33222211          54333211
                                       1111111111111111  332222221111
                                                         1111111111111111111111

The Heinz numbers of these partitions are given by A329132.
The aperiodic version is A329136.
The non-augmented version is A329144.
Periodic binary words are A152061.
Periodic compositions are A178472.
Numbers whose binary expansion is periodic are A121016.
Numbers whose prime signature is periodic are A329140.
Cf. A000740, A027375, A328594, A329133, A329135, A325351, A325356, A329134.

aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
aug[y_]:=Table[If[i

a(n) + A329136(n) = A000041(n).

More terms from Jinyuan Wang, Jun 27 2020

A342526 Heinz numbers of integer partitions with weakly decreasing first quotients.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 67, 69, 70, 71, 73, 74, 75, 77, 79, 81, 82, 83, 85, 86, 87

Offset: 1

Gus Wiseman, Mar 23 2021

nonn

Also called log-concave-down partitions.
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 first quotients of a sequence are defined as if the sequence were an increasing divisor chain, so for example the first quotients of (6,3,1) are (1/2,1/3).

			The prime indices of 294 are {1,2,4,4}, with first quotients (2,2,1), so 294 is in the sequence.
Most small numbers are in the sequence, but the sequence of non-terms together with their prime indices begins:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   36: {1,1,2,2}
   40: {1,1,1,3}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   66: {1,2,5}
   68: {1,1,7}
   72: {1,1,1,2,2}
   76: {1,1,8}
   78: {1,2,6}
   80: {1,1,1,1,3}
   84: {1,1,2,4}

Eric Weisstein's World of Mathematics, Logarithmically Concave Sequence.
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.
Gus Wiseman, Sequences counting and ranking partitions and compositions by their differences and quotients.

The version counting strict divisor chains is A057567.
For multiplicities (prime signature) instead of quotients we have A242031.
For differences instead of quotients we have A325361 (count: A320466).
These partitions are counted by A342513 (strict: A342519, ordered: A069916).
The weakly increasing version is A342523.
The strictly decreasing version is A342525.
A000929 counts partitions with all adjacent parts x >= 2y.
A001055 counts factorizations (strict: A045778, ordered: A074206).
A002843 counts compositions with all adjacent parts x <= 2y.
A003238 counts chains of divisors summing to n - 1 (strict: A122651).
A167865 counts strict chains of divisors > 1 summing to n.
A318991/A318992 rank reversed partitions with/without integer quotients.
Cf. A048767, A056239, A067824, A112798, A238710, A253249, A325351, A325352, A325405, A334997, A342086, A342191.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],GreaterEqual@@Divide@@@Reverse/@Partition[primeptn[#],2,1]&]

A358169 Row n lists the first differences plus one of the prime indices of n with 1 prepended.

Original entry on oeis.org

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

Offset: 2

Gus Wiseman, Nov 01 2022

Every nonempty composition appears as a row exactly once.
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. Here this multiset is regarded as a sequence in weakly increasing order.
Also the reversed augmented differences of the integer partition with Heinz number n, where the augmented differences aug(q) of a sequence q of length k are given by aug(q)i = q_i - q{i+1} + 1 if i < k and aug(q)_k = q_k, and the Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). The non-reversed version is A355534.

			Triangle begins:
   2: 1
   3: 2
   4: 1 1
   5: 3
   6: 1 2
   7: 4
   8: 1 1 1
   9: 2 1
  10: 1 3
  11: 5
  12: 1 1 2
  13: 6
  14: 1 4
  15: 2 2
  16: 1 1 1 1
  17: 7
  18: 1 2 1
  19: 8
  20: 1 1 3

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

Row-lengths are A001222.
The first term of each row is A055396.
Row-sums are A252464.
The rows appear to be ranked by A253566.
Another variation is A287352.
Constant rows have indices A307824.
The Heinz numbers of the rows are A325351.
Strict rows have indices A325366.
Row-minima are A355531, also A355524 and A355525.
Row-maxima are A355532, non-augmented A286470, also A355526.
Reversing rows gives A355534.
The non-augmented version A355536, also A355533.
A112798 lists prime indices, sum A056239.
Cf. A124010, A243055, A243056, A325352, A325390, A355523, A355528.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Differences[Prepend[primeMS[n],1]]+1,{n,30}]

A383535 Heinz number of the positive first differences of the 0-prepended prime indices of n.

Original entry on oeis.org

1, 2, 3, 2, 5, 4, 7, 2, 3, 6, 11, 4, 13, 10, 6, 2, 17, 4, 19, 6, 9, 14, 23, 4, 5, 22, 3, 10, 29, 8, 31, 2, 15, 26, 10, 4, 37, 34, 21, 6, 41, 12, 43, 14, 6, 38, 47, 4, 7, 6, 33, 22, 53, 4, 15, 10, 39, 46, 59, 8, 61, 58, 9, 2, 25, 20, 67, 26, 51, 12, 71, 4, 73

Offset: 1

Gus Wiseman, May 21 2025

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.

Also Heinz number of the first differences of the distinct 0-prepended prime indices of n.

			The terms together with their prime indices begin:
     1: {}        2: {1}        31: {11}       38: {1,8}
     2: {1}      17: {7}         2: {1}        47: {15}
     3: {2}       4: {1,1}      15: {2,3}       4: {1,1}
     2: {1}      19: {8}        26: {1,6}       7: {4}
     5: {3}       6: {1,2}      10: {1,3}       6: {1,2}
     4: {1,1}     9: {2,2}       4: {1,1}      33: {2,5}
     7: {4}      14: {1,4}      37: {12}       22: {1,5}
     2: {1}      23: {9}        34: {1,7}      53: {16}
     3: {2}       4: {1,1}      21: {2,4}       4: {1,1}
     6: {1,2}     5: {3}         6: {1,2}      15: {2,3}
    11: {5}      22: {1,5}      41: {13}       10: {1,3}
     4: {1,1}     3: {2}        12: {1,1,2}    39: {2,6}
    13: {6}      10: {1,3}      43: {14}       46: {1,9}
    10: {1,3}    29: {10}       14: {1,4}      59: {17}
     6: {1,2}     8: {1,1,1}     6: {1,2}       8: {1,1,1}

For multiplicities instead of differences we have A181819.
Positions of first appearances are A358137.
Positions of squarefree numbers are A383512, counted by A098859.
Positions of nonsquarefree numbers are A383513, counted by A336866.
These are Heinz numbers of rows of A383534.
A000040 lists the primes, differences A001223.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A320348 counts strict partitions with distinct 0-appended differences, ranks A325388.
A325324 counts partitions with distinct 0-appended differences, ranks A325367.
Cf. A122111, A124010 (prime signature), A130091, A287352, A325351, A325366, A325368, A355536, A381431, A384008, A384009.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Times@@Prime/@DeleteCases[Differences[Prepend[prix[n],0]],0],{n,100}]

A001222(a(n)) = A001221(n).
A056239(a(n)) = A061395(n).
A055396(a(n)) = A055396(n).
A061395(a(n)) = A241919(n).

A325458 Triangle read by rows where T(n,k) is the number of integer partitions of n with largest hook of size k, i.e., with (largest part) + (number of parts) - 1 = k.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, May 04 2019

Conjectured to be equal to A049597.

			Triangle begins:
  1
  0  1
  0  0  2
  0  0  0  3
  0  0  0  1  4
  0  0  0  0  2  5
  0  0  0  0  2  3  6
  0  0  0  0  0  4  4  7
  0  0  0  0  0  3  6  5  8
  0  0  0  0  0  1  6  8  6  9
  0  0  0  0  0  0  6  9 10  7 10
  0  0  0  0  0  0  2 11 12 12  8 11
  0  0  0  0  0  0  2  9 16 15 14  9 12
  0  0  0  0  0  0  0  7 16 21 18 16 10 13
  0  0  0  0  0  0  0  4 18 23 26 21 18 11 14
  0  0  0  0  0  0  0  3 12 29 30 31 24 20 12 15
  0  0  0  0  0  0  0  1 12 27 40 37 36 27 22 13 16
  0  0  0  0  0  0  0  0  8 26 42 51 44 41 30 24 14 17
  0  0  0  0  0  0  0  0  6 23 48 57 62 51 46 33 26 15 18
  0  0  0  0  0  0  0  0  2 21 44 70 72 73 58 51 36 28 16 19
Row n = 9 counts the following partitions:
  (333)  (54)     (63)      (72)       (9)
         (432)    (522)     (621)      (81)
         (441)    (531)     (5211)     (711)
         (3222)   (4221)    (42111)    (6111)
         (3321)   (4311)    (321111)   (51111)
         (22221)  (32211)   (2211111)  (411111)
                  (33111)              (3111111)
                  (222111)             (21111111)
                                       (111111111)

Row sums are A000041.
Column sums are 2^(k - 1) for k > 0.
Cf. A008284, A049597, A093641, A116608, A325242, A325349, A325351, A325355, A325359, A325459.

Table[Length[Select[IntegerPartitions[n],If[n==0,k==0,First[#]+Length[#]-1==k]&]],{n,0,19},{k,0,n}]

Franklin T. Adams-Watters has conjectured at A049597 that the k-th column gives the coefficients of the sum of Gaussian polynomials [k,m] for m = 0..k.

A358171 The a(n)-th composition in standard order (A066099) is the first differences plus one of the prime indices of n (A112798).

Original entry on oeis.org

0, 0, 0, 1, 0, 2, 0, 3, 1, 4, 0, 6, 0, 8, 2, 7, 0, 5, 0, 12, 4, 16, 0, 14, 1, 32, 3, 24, 0, 10, 0, 15, 8, 64, 2, 13, 0, 128, 16, 28, 0, 20, 0, 48, 6, 256, 0, 30, 1, 9, 32, 96, 0, 11, 4, 56, 64, 512, 0, 26, 0, 1024, 12, 31, 8, 40, 0, 192, 128, 18, 0, 29, 0

Offset: 1

Gus Wiseman, Dec 21 2022

nonn

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

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 prime indices of 36 are {1,1,2,2}, with first differences plus one (1,2,1), which is the 13th composition in standard order, so a(36) = 13.

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
Prepend 1 to indices: A253566 (cf. A358169), inverse A253565 (cf. A242628).
Taking Heinz number instead of standard composition number gives A325352.
These compositions minus one are listed by A355536, sums A243055.
A001222 counts prime indices, distinct A001221.
A066099 lists standard compositions, lengths A000120, sums A070939.
A112798 lists prime indices, sum A056239.
A355534 = augmented diffs. of rev. prime indices, Heinz numbers A325351.
Cf. A000720, A005940, A055932, A057335, A066312, A286470, A287352, A325390.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
stcinv[q_]:=Total[2^(Accumulate[Reverse[q]])]/2;
Table[stcinv[Differences[primeMS[n]]+1],{n,100}]

cp's OEIS Frontend

A359358 Let y be the integer partition with Heinz number n. Then a(n) is the size of the Young diagram of y after removing a rectangle of the same length as y and width equal to the smallest part of y.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A325459 Sum of numbers of nontrivial divisors (greater than 1 and less than k) of k for k = 1..n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

Extensions

A329143 Number of integer partitions of n whose augmented differences are a periodic word.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A342526 Heinz numbers of integer partitions with weakly decreasing first quotients.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A358169 Row n lists the first differences plus one of the prime indices of n with 1 prepended.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A383535 Heinz number of the positive first differences of the 0-prepended prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A325458 Triangle read by rows where T(n,k) is the number of integer partitions of n with largest hook of size k, i.e., with (largest part) + (number of parts) - 1 = k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A358171 The a(n)-th composition in standard order (A066099) is the first differences plus one of the prime indices of n (A112798).

Views

Author

Keywords