A286470 -id:A286470 - cp's OEIS frontend

A286455 Compound filter (smallest prime dividing n & prime signature of conjugated prime factorization): a(n) = P(A055396(n), A286621(n)), where P(n,k) is sequence A000027 used as a pairing function.

0, 2, 8, 2, 18, 11, 40, 2, 8, 22, 71, 11, 97, 46, 30, 2, 143, 11, 179, 22, 93, 92, 262, 11, 18, 121, 8, 46, 335, 154, 417, 2, 212, 211, 69, 11, 540, 254, 302, 22, 679, 326, 794, 92, 30, 379, 918, 11, 40, 22, 467, 121, 1051, 11, 234, 46, 530, 529, 1242, 154, 1344, 631, 93, 2, 744, 704, 1615, 211, 822, 326, 1790, 11, 1912, 904, 30, 254, 140, 947, 2167, 22, 8

Offset: 1

Antti Karttunen, May 14 2017

nonn

Note that as the other component of a(n) we use A286621 instead of A278221, because of latter sequence's unwieldy large terms.
For all i, j: a(i) = a(j) => A243055(i) = A243055(j).
For all i, j: a(i) = a(j) => A286470(i) = A286470(j).

Antti Karttunen, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Pairing Function

Cf. A000027, A055396, A122111, A243055, A278221, A285334, A286621, A286454, A286456.

(define (A286455 n) (* (/ 1 2) (+ (expt (+ (A055396 n) (A286621 n)) 2) (- (A055396 n)) (- (* 3 (A286621 n))) 2)))

a(n) = (1/2)*(2 + ((A055396(n)+A286621(n))^2) - A055396(n) - 3*A286621(n)).

A339886 Numbers whose prime indices cover an interval of positive integers starting with 2.

Original entry on oeis.org

1, 3, 9, 15, 27, 45, 75, 81, 105, 135, 225, 243, 315, 375, 405, 525, 675, 729, 735, 945, 1125, 1155, 1215, 1575, 1875, 2025, 2187, 2205, 2625, 2835, 3375, 3465, 3645, 3675, 4725, 5145, 5625, 5775, 6075, 6561, 6615, 7875, 8085, 8505, 9375, 10125, 10395, 10935

Offset: 1

Gus Wiseman, Apr 20 2021

nonn

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 sequence of terms together with their prime indices begins:
    3: {2}
    9: {2,2}
   15: {2,3}
   27: {2,2,2}
   45: {2,2,3}
   75: {2,3,3}
   81: {2,2,2,2}
  105: {2,3,4}
  135: {2,2,2,3}
  225: {2,2,3,3}
  243: {2,2,2,2,2}
  315: {2,2,3,4}
  375: {2,3,3,3}
  405: {2,2,2,2,3}
  525: {2,3,3,4}
  675: {2,2,2,3,3}
  729: {2,2,2,2,2,2}
  735: {2,3,4,4}
  945: {2,2,2,3,4}

The version starting at 1 is A055932.
The partitions with these Heinz numbers are counted by A264396.
Positions of 1's in A339662.
A000009 counts partitions covering an initial interval.
A000070 counts partitions with a selected part.
A016945 lists numbers with smallest prime index 2.
A034296 counts gap-free (or flat) partitions.
A056239 adds up prime indices, row sums of A112798.
A073491 lists numbers with gap-free prime indices.
A107428 counts gap-free compositions (initial: A107429).
A286469 and A286470 give greatest difference for Heinz numbers.
A325240 lists numbers with smallest prime multiplicity 2.
A342050/A342051 have prime indices with odd/even least gap.
Cf. A001223, A001522, A006128, A007052, A124010, A257989, A257993, A264401, A317090, A317589, A339737.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
Select[Range[100],normQ[primeMS[#]-1]&]

A355523 Number of distinct differences between adjacent prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 10 2022

nonn

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.

			For example, the prime indices of 22770 are {1,2,2,3,5,9}, with differences (1,0,1,2,4), so a(22770) = 4.

Crossrefs found in the link are not repeated here.
Counting m such that A056239(m) = n and a(m) = k gives A279945.
With multiplicity we have A252736(n) = A001222(n) - 1.
The maximal difference is A286470, minimal A355524.
A008578 gives the positions of 0's.
A287352 lists differences between 0-prepended prime indices.
A355534 lists augmented differences between prime indices.
A355536 lists differences between prime indices.
Cf. A066312, A238353, A238710, A286469, A320348, A325388, A325406, A351294, A352827, A355525-A355533.

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

A355523(n) = if(1==n, 0, my(pis = apply(primepi,factor(n)[,1]), difs = vector(#pis-1, i, pis[i+1]-pis[i])); (#Set(difs)+!issquarefree(n))); \\ Antti Karttunen, Jan 20 2025

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

A355530 Squarefree numbers that are either even or have at least one pair of consecutive prime factors. Numbers n such that the minimal difference between adjacent 0-prepended prime indices of n is 1.

Original entry on oeis.org

2, 6, 10, 14, 15, 22, 26, 30, 34, 35, 38, 42, 46, 58, 62, 66, 70, 74, 77, 78, 82, 86, 94, 102, 105, 106, 110, 114, 118, 122, 130, 134, 138, 142, 143, 146, 154, 158, 165, 166, 170, 174, 178, 182, 186, 190, 194, 195, 202, 206, 210, 214, 218, 221, 222, 226, 230

Offset: 1

Gus Wiseman, Jul 10 2022

nonn

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.
A number is squarefree if it is not divisible by any perfect square > 1.
A number has consecutive prime factors if it is divisible by both prime(k) and prime(k+1) for some k.

			The terms together with their prime indices begin:
   2: {1}
   6: {1,2}
  10: {1,3}
  14: {1,4}
  15: {2,3}
  22: {1,5}
  26: {1,6}
  30: {1,2,3}
  34: {1,7}
  35: {3,4}
  38: {1,8}
  42: {1,2,4}
  46: {1,9}
  58: {1,10}
  62: {1,11}
  66: {1,2,5}
  70: {1,3,4}

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

Crossrefs found in the link are not repeated here.
All terms are in A005117, complement A013929.
For maximal instead of minimal difference we have A055932 or A066312.
Not prepending zero gives A355527.
A001522 counts partitions with a fixed point (unproved), ranked by A352827.
A056239 adds up prime indices.
A238352 counts partitions by fixed points, rank statistic A352822.
A279945 counts partitions by number of distinct differences.
A287352, A355533, A355534, A355536 list the differences of prime indices.
A355524 gives minimal difference if singletons go to 0, to index A355525.
Cf. A000005, A000040, A120944, A238354, A286469, A286470, A325160, A325161, A355526, A355531.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Min@@Differences[Prepend[primeMS[#],0]]==1&]

Equals A005117 /\ (A005843 \/ A104210).

A356734 Heinz numbers of integer partitions with at least one neighborless part.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 16, 17, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 78, 79, 80, 81, 82, 83

Offset: 1

Gus Wiseman, Aug 26 2022

nonn

First differs from A319630 in lacking 1 and having 42 (prime indices: {1,2,4}).
A part x is neighborless if neither x - 1 nor x + 1 are parts.
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:
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}

These partitions are counted by A356236.
The singleton case is A356237, counted by A356235 (complement A355393).
The strict case is counted by A356607, complement A356606.
The complement is A356736, counted by A355394.
A001221 counts distinct prime factors, sum A001414.
A003963 multiplies together the prime indices of n.
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.
A132747 counts non-isolated divisors, complement A132881.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Cf. A000005, A286470, A287170 (firsts A066205), A289508, A325160, A328166, A328335, A356231, A356233, A356234.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Function[ptn,Or@@Table[!MemberQ[ptn,x-1]&&!MemberQ[ptn,x+1],{x,Union[ptn]}]]@*primeMS]

A356842 Numbers k such that the k-th composition in standard order does not cover an interval of positive integers (not gapless).

Original entry on oeis.org

9, 12, 17, 19, 24, 25, 28, 33, 34, 35, 39, 40, 48, 49, 51, 56, 57, 60, 65, 66, 67, 69, 70, 71, 73, 76, 79, 80, 81, 88, 96, 97, 98, 99, 100, 103, 104, 112, 113, 115, 120, 121, 124, 129, 130, 131, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 144, 145

Offset: 1

Gus Wiseman, Sep 01 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.

			The terms and their corresponding standard compositions begin:
   9: (3,1)
  12: (1,3)
  17: (4,1)
  19: (3,1,1)
  24: (1,4)
  25: (1,3,1)
  28: (1,1,3)
  33: (5,1)
  34: (4,2)
  35: (4,1,1)
  39: (3,1,1,1)
  40: (2,4)
  48: (1,5)
  49: (1,4,1)
  51: (1,3,1,1)
  56: (1,1,4)
  57: (1,1,3,1)
  60: (1,1,1,3)

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

See link for sequences related to standard compositions.
An unordered version is A073492, complement A073491.
These compositions are counted by the complement of A107428.
The complement is A356841.
The gapless but non-initial version is A356843, unordered A356845.
A356230 ranks gapless factorization lengths, firsts A356603.
A356233 counts factorizations into gapless numbers.
A356844 ranks compositions with at least one 1.
Cf. A053251, A055932, A073493, A132747, A137921, A286470, A333217, A356224/A356225.

nogapQ[m_]:=m=={}||Union[m]==Range[Min[m],Max[m]];
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!nogapQ[stc[#]]&]

A356736 Heinz numbers of integer partitions with no neighborless parts.

Original entry on oeis.org

1, 6, 12, 15, 18, 24, 30, 35, 36, 45, 48, 54, 60, 72, 75, 77, 90, 96, 105, 108, 120, 135, 143, 144, 150, 162, 175, 180, 192, 210, 216, 221, 225, 240, 245, 270, 288, 300, 315, 323, 324, 360, 375, 384, 385, 405, 420, 432, 437, 450, 462, 480, 486, 525, 539, 540

Offset: 1

Gus Wiseman, Aug 31 2022

nonn

First differs from A066312 in having 1 and lacking 462.
First differs from A104210 in having 1 and lacking 42.
A part x is neighborless iff neither x - 1 nor x + 1 are parts.
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:
   1: {}
   6: {1,2}
  12: {1,1,2}
  15: {2,3}
  18: {1,2,2}
  24: {1,1,1,2}
  30: {1,2,3}
  35: {3,4}
  36: {1,1,2,2}
  45: {2,2,3}
  48: {1,1,1,1,2}
  54: {1,2,2,2}
  60: {1,1,2,3}
  72: {1,1,1,2,2}
  75: {2,3,3}
  77: {4,5}
  90: {1,2,2,3}
  96: {1,1,1,1,1,2}

These partitions are counted by A355394.
The singleton case is the complement of A356237.
The singleton case is counted by A355393, complement A356235.
The strict complement is A356606, counted by A356607.
The complement is A356734, counted by A356236.
A000041 counts integer partitions, strict A000009.
A001221 counts distinct prime factors, sum A001414.
A003963 multiplies together the prime indices of n.
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.
Cf. A066312, A286470, A287170 (firsts A066205), A328171, A328187, A328221, A328335, A356231, A356234.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Function[ptn,!Or@@Table[!MemberQ[ptn,x-1]&&!MemberQ[ptn,x+1],{x,Union[ptn]}]]@*primeMS]

A357180 First run-length of the n-th composition in standard order.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, Sep 24 2022

nonn

A composition of n is a finite sequence of positive integers summing to n. 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.

			Composition 87 in standard order is (2,2,1,1,1), so a(87) = 2.

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

See link for sequences related to standard compositions.
For parts instead of run-lengths we have A065120, last A001511.
The version for Heinz numbers of partitions is A067029, last A071178.
This is the first part of row n of A333769.
For minimal instead of first we have A357138, maximal A357137.
The last instead of first run-length is A357181.
A051903 gives maximal part in prime signature.
A061395 gives maximal prime index.
A124767 counts runs in standard compositions.
A286470 gives maximal difference of prime indices.
A333766 gives maximal part of standard compositions, minimal A333768.
A353847 ranks run-sums of standard compositions.
Cf. A000120, A003754, A029931, A070939, A329395, A356841, A356844, A357134, A357135, A357136.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[If[n==0,0,First[Length/@Split[stc[n]]]],{n,0,100}]

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}]

A297173 Smallest difference between indices of prime divisors of n, or 0 if n is a prime power.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Mar 03 2018

nonn

			For n = 130 = 2*5*13 = prime(1)*prime(3)*prime(6), the smallest difference between indices is 3-1 = 2, thus a(130) = 2.

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

Cf. A000720, A073490, A073491.

Cf. also A100573, A243055, A242411, A261079, A286470, A286471.

A297173(n) = if(omega(n)<=1,0,my(ps=factor(n)[,1]); vecmin(vector((#ps)-1,i,primepi(ps[i+1])-primepi(ps[i]))));

a(A073491(n)) <= 1.

cp's OEIS Frontend

A286455 Compound filter (smallest prime dividing n & prime signature of conjugated prime factorization): a(n) = P(A055396(n), A286621(n)), where P(n,k) is sequence A000027 used as a pairing function.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Scheme

Formula

A339886 Numbers whose prime indices cover an interval of positive integers starting with 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A355523 Number of distinct differences between adjacent prime indices of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A355530 Squarefree numbers that are either even or have at least one pair of consecutive prime factors. Numbers n such that the minimal difference between adjacent 0-prepended prime indices of n is 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A356734 Heinz numbers of integer partitions with at least one neighborless part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A356842 Numbers k such that the k-th composition in standard order does not cover an interval of positive integers (not gapless).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A356736 Heinz numbers of integer partitions with no neighborless parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357180 First run-length of the n-th composition in standard order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs