A356228 -id:A356228 - cp's OEIS frontend

A384906 Number of maximal anti-runs of consecutive parts not increasing by 1 in the prime indices of n (with multiplicity).

0, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1

Offset: 1

Gus Wiseman, Jun 22 2025

nonn

First differs from A300820 at a(462) = 3, A300820(462) = 2.

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 462 are {1,2,4,5}, with maximal anti-runs ((1),(2,4),(5)), so a(462) = 3.

For the strict case we have A356228.
For binary instead of prime indices we have A384890 (for runs A069010).
For runs instead of anti-runs we have A385213.
A034839 counts subsets by number of maximal runs, for strict partitions A116674.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A384877 gives lengths of maximal anti-runs in binary indices, firsts A384878.
Cf. A130091, A245562, A268193, A300820, A351202, A356607, A382525, A384177, A384321, A384893.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Split[prix[n],#2!=#1+1&]],{n,100}]

A356735 Number of distinct parts that have neighbors in the integer partition with Heinz number n.

Original entry on oeis.org

0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 2, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 2, 2, 0, 0, 0, 0, 0, 2, 0, 0, 2, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 0, 0, 2, 0, 2, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 3

Offset: 1

Gus Wiseman, Aug 31 2022

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 the number of distinct prime indices x of n such that either x - 1 or x + 1 is also a prime index of n, where a prime index of n is a number x such that prime(x) divides n.

			The prime indices of 42 are {1,2,4}, of which 1 and 2 have neighbors, so a(42) = 2.
The prime indices of 462 are {1,2,4,5}, all of which have neighbors, so a(462) = 4.
The prime indices of 990 are {1,2,2,3,5}, of which 1, 2, and 3 have neighbors, so a(990) = 3.
The prime indices of 1300 are {1,1,3,3,6}, none of which have neighbors, so a(1300) = 0.

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to prime indices in the factorization of n.

Positions of first appearances are A002110 without 1 (or A231209).
The complement is counted by A356733.
Positions of zeros are A356734.
Positions of positive terms are A356736.
A001221 counts distinct prime factors, sum A001414.
A007690 counts partitions with no singletons, complement A183558.
A056239 adds up prime indices, row sums of A112798, lengths A001222.
A073491 lists numbers with gapless prime indices, complement A073492.
A355393 counts partitions w/o a neighborless singleton, complement A356235.
A355394 counts partitions w/o a neighborless part, complement A356236.
A356226 lists the lengths of maximal gapless submultisets of prime indices:
- length: A287170 (firsts A066205)
- minimum: A356227
- maximum: A356228
- bisected length: A356229
- standard composition: A356230
- Heinz number: A356231
- positions of first appearances: A356232
Cf. A000005, A066312, A286470, A289508, A325160, A328166, A328335, A356233, A356234, A356237.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Union[primeMS[n]], MemberQ[primeMS[n],#-1]|| MemberQ[primeMS[n],#+1]&]],{n,100}]

A356735(n) = if(1==n,0,my(pis=apply(primepi,factor(n)[,1])); omega(n)-sum(i=1, #pis, ((n%prime(pis[i]+1)) && (pis[i]==1 || (n%prime(pis[i]-1)))))); \\ Antti Karttunen, Jan 28 2025

a(n) + A356733(n) = A001221(n).

Data section extended to a(105) by Antti Karttunen, Jan 28 2025

A385814 Triangle read by rows where T(n,k) is the number of integer partitions of n with k maximal proper anti-runs (sequences decreasing by more than 1).

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, Jul 09 2025

			The partition (8,5,4,2,1) has maximal proper anti-runs ((8,5),(4,2),(1)) so is counted under T(20,3).
The partition (8,5,3,2,2) has maximal proper anti-runs ((8,5,3),(2),(2)) so is also counted under T(20,3).
Row n = 8 counts the following partitions:
  .  8   611  5111  41111  32111   221111  2111111  11111111
     71  521  4211  3221   311111
     62  44   332   2222   22211
     53  431  3311
         422
Triangle begins:
  1
  0  1
  0  1  1
  0  1  1  1
  0  2  1  1  1
  0  2  2  1  1  1
  0  3  2  3  1  1  1
  0  3  4  2  3  1  1  1
  0  4  5  4  3  3  1  1  1
  0  5  5  6  5  3  3  1  1  1
  0  6  8  7  6  6  3  3  1  1  1
  0  7  9 10  8  7  6  3  3  1  1  1
  0  9 11 13 12  9  8  6  3  3  1  1  1
  0 10 14 16 15 13 10  8  6  3  3  1  1  1
  0 12 19 18 21 17 14 11  8  6  3  3  1  1  1
  0 14 21 26 23 24 19 15 11  8  6  3  3  1  1  1
  0 17 26 31 33 28 26 20 16 11  8  6  3  3  1  1  1
  0 19 32 37 40 39 31 28 21 16 11  8  6  3  3  1  1  1
  0 23 38 47 50 47 45 34 29 22 16 11  8  6  3  3  1  1  1
  0 26 45 57 61 61 54 48 36 30 22 16 11  8  6  3  3  1  1  1
  0 31 53 71 75 76 70 60 51 37 31 22 16 11  8  6  3  3  1  1  1

Row sums are A000041, strict A000009.
Column k = 1 is A003114.
For anti-runs instead of proper anti-runs we have A268193.
The corresponding rank statistic is A356228.
For proper runs instead of proper anti-runs we have A384881.
For subsets instead of partitions we have A384893, runs A034839.
The strict case is A384905.
For runs instead of proper anti-runs we have A385815.
A007690 counts partitions with no singletons (ranks A001694), complement A183558.
A034296 counts flat or gapless partitions, ranks A066311 or A073491.
A047993 counts partitions with max part = length, ranks A106529.
A098859 counts Wilf partitions, complement A336866 (ranks A325992).
A116608 counts partitions by distinct parts.
A116931 counts sparse partitions, ranks A319630.
Cf. A001227, A008284, A089259, A116674, A239455, A325325, A356226, A384880, A384885, A384887, A384906.

Table[Length[Select[IntegerPartitions[n],Length[Split[#,#1>#2+1&]]==k&]],{n,0,10},{k,0,n}]

cp's OEIS Frontend

A384906 Number of maximal anti-runs of consecutive parts not increasing by 1 in the prime indices of n (with multiplicity).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A356735 Number of distinct parts that have neighbors in the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A385814 Triangle read by rows where T(n,k) is the number of integer partitions of n with k maximal proper anti-runs (sequences decreasing by more than 1).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica