cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-30 of 51 results. Next

A325276 Irregular triangle read by rows where row n is the omega-sequence of n!.

Original entry on oeis.org

1, 2, 2, 1, 4, 2, 2, 1, 5, 3, 2, 2, 1, 7, 3, 3, 1, 8, 4, 3, 2, 2, 1, 11, 4, 3, 2, 2, 1, 13, 4, 3, 2, 2, 1, 15, 4, 4, 1, 16, 5, 4, 2, 2, 1, 19, 5, 4, 2, 2, 1, 20, 6, 4, 2, 2, 1, 22, 6, 4, 2, 1, 24, 6, 5, 2, 2, 1, 28, 6, 5, 2, 2, 1, 29, 7, 5, 2, 2, 1
Offset: 0

Views

Author

Gus Wiseman, Apr 18 2019

Keywords

Comments

We define the omega-sequence of n (row n of A323023) to have length A323014(n) = adjusted frequency depth of n, and the k-th term is Omega(red^{k-1}(n)), where Omega = A001222 and red^{k} is the k-th functional iteration of red = A181819, defined by red(n = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of n. For example, we have 180 -> 18 -> 6 -> 4 -> 3, so the omega-sequence of 180 is (5,3,2,2,1).

Examples

			Triangle begins:
  {}
  {}
   1
   2  2  1
   4  2  2  1
   5  3  2  2  1
   7  3  3  1
   8  4  3  2  2  1
  11  4  3  2  2  1
  13  4  3  2  2  1
  15  4  4  1
  16  5  4  2  2  1
  19  5  4  2  2  1
  20  6  4  2  2  1
  22  6  4  2  1
  24  6  5  2  2  1
  28  6  5  2  2  1
  29  7  5  2  2  1
  32  7  5  2  2  1
  33  8  5  2  2  1
  36  8  5  2  2  1
  38  8  5  2  2  1
  40  8  6  2  2  1
  41  9  6  2  2  1
  45  9  6  2  2  1
  47  9  6  2  2  1
  49  9  6  3  2  2  1
  52  9  6  3  2  2  1
  55  9  6  3  2  2  1
  56 10  6  3  2  2  1
  59 10  6  3  2  2  1
		

Crossrefs

Row lengths are A325272. Row sums are A325274. Row n is row A325275(n) of A112798. Second-to-last column is A325273. Column k = 1 is A022559. Column k = 2 is A000720. Column k = 3 is A071626.
Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number), A325249 (sum).

Programs

  • Mathematica
    omseq[n_Integer]:=If[n<=1,{},Total/@NestWhileList[Sort[Length/@Split[#]]&,Sort[Last/@FactorInteger[n]],Total[#]>1&]];
    Table[omseq[n!],{n,0,30}]

A325278 Smallest number with adjusted frequency depth n.

Original entry on oeis.org

1, 2, 4, 6, 12, 60, 2520, 1286485200, 35933692027611398678865941374040400000
Offset: 0

Views

Author

Gus Wiseman, Apr 17 2019

Keywords

Comments

The adjusted frequency depth of a positive integer n is 0 if n = 1, and otherwise it is 1 plus the number of times one must apply A181819 to reach a prime number, where A181819(k = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of k. For example, 180 has adjusted frequency depth 5 because we have: 180 -> 18 -> 6 -> 4 -> 3.
Differs from A182857 in having 2 instead of 3.

Crossrefs

A subsequence of A325238.
Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number).

Programs

  • Mathematica
    nn=10000;
    fd[n_]:=Switch[n,1,0,?PrimeQ,1,,1+fd[Times@@Prime/@Last/@FactorInteger[n]]];
    fds=fd/@Range[nn];
    Sort[Table[Position[fds,x][[1,1]],{x,Union[fds]}]]

A305732 Heinz numbers of reducible integer partitions. Numbers n > 1 that are prime or whose prime indices are relatively prime and such that A181819(n) is already in the sequence.

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 64, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78
Offset: 1

Views

Author

Gus Wiseman, Jun 22 2018

Keywords

Comments

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). A prime index of n is a number m such that prime(m) divides n. A multiset m whose distinct elements are m_1, m_2, ..., m_k with multiplicities y_1, y_2, ..., y_k is reducible if either m is of size 1 or gcd(m_1,...,m_k) = 1 and the multiset {y_1,...,y_k} is also reducible.

Examples

			60 has relatively prime prime indices {1,1,2,3} with multiplicities {1,1,2} corresponding to A181819(90) = 12. 12 has relatively prime prime indices {1,1,2} with multiplicities {1,2} corresponding to A181819(12) = 6. 6 has relatively prime prime indices {1,2} with multiplicities {1,1} corresponding to A181819(6) = 4. 4 has relatively prime prime indices {1,1} with multiplicities {2} corresponding to A181819(4) = 3. 3 is prime, so we conclude that 60 belongs to the sequence.
		

Crossrefs

Programs

  • Mathematica
    rdzQ[n_]:=And[n>1,Or[PrimeQ[n],And[rdzQ[Times@@Prime/@FactorInteger[n][[All,2]]],GCD@@PrimePi/@FactorInteger[n][[All,1]]==1]]];
    Select[Range[50],rdzQ]

A304455 Number of steps in the reduction to a multiset of size 1 of the multiset of prime factors of n, obtained by repeatedly taking the multiset of multiplicities.

Original entry on oeis.org

0, 0, 0, 1, 0, 2, 0, 1, 1, 2, 0, 3, 0, 2, 2, 1, 0, 3, 0, 3, 2, 2, 0, 3, 1, 2, 1, 3, 0, 2, 0, 1, 2, 2, 2, 2, 0, 2, 2, 3, 0, 2, 0, 3, 3, 2, 0, 3, 1, 3, 2, 3, 0, 3, 2, 3, 2, 2, 0, 4, 0, 2, 3, 1, 2, 2, 0, 3, 2, 2, 0, 3, 0, 2, 3, 3, 2, 2, 0, 3, 1, 2, 0, 4, 2, 2, 2, 3, 0, 4, 2, 3, 2, 2, 2, 3, 0, 3, 3, 2, 0, 2, 0, 3, 2
Offset: 1

Views

Author

Gus Wiseman, May 12 2018

Keywords

Examples

			The a(2520) = 5 steps are {2,2,2,3,3,5,7} -> {1,1,2,3} -> {1,1,2} -> {1,2} -> {1,1} -> {2}.
		

Crossrefs

Programs

  • Mathematica
    Table[Length[Select[FixedPointList[Sort[Length/@Split[#]]&,If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[p,{k}]]]]],Length[#]>1&]],{n,100}]
  • PARI
    A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2])));
    A304455(n) = if(n<=2,0, n=A181819(n); if(2==n,0,1+A304455(n))); \\ Antti Karttunen, Dec 06 2018

Formula

For n > 2, a(n) = A182850(n) - 1.
a(prime(n)) = 0.
a(A246547(n)) = 1.

Extensions

More terms from Antti Karttunen, Dec 06 2018

A304687 Start with the multiset of prime multiplicities of n. Given a multiset, take the multiset of its multiplicities. Repeat until a constant multiset {k,k,...,k} is reached, and set a(n) to the sum of this multiset (k times the length).

Original entry on oeis.org

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

Views

Author

Gus Wiseman, May 16 2018

Keywords

Examples

			The following are examples showing the reduction of a multiset starting with the multiset of prime multiplicities of n.
         a(60) = 2: {1,1,2} -> {1,2} -> {1,1}.
        a(360) = 3: {1,2,3} -> {1,1,1}.
       a(1260) = 4: {1,1,2,2} -> {2,2}.
a(21492921450) = 6: {1,1,2,2,3,3} -> {2,2,2}.
		

Crossrefs

Programs

  • Maple
    a:= proc(n) map(i-> i[2], ifactors(n)[2]);
          while nops({%[]})>1 do [coeffs(add(x^i, i=%))] od;
          add(i, i=%)
        end:
    seq(a(n), n=1..100);  # Alois P. Heinz, May 17 2018
  • Mathematica
    Table[If[n==1,0,NestWhile[Sort[Length/@Split[#]]&,Sort[Last/@FactorInteger[n]],!SameQ@@#&]//Total],{n,360}]

A325250 Number of integer partitions of n whose omega-sequence is strict (no repeated parts).

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 5, 2, 5, 4, 6, 2, 11, 3, 10, 12, 17, 12, 31, 22, 42, 47, 57, 60, 98, 94, 119, 143, 174, 182, 256, 253, 321, 365, 425, 480, 615, 645, 803, 946, 1180, 1341, 1766, 2021, 2607, 3145, 3951, 4727, 6123, 7236, 9136
Offset: 0

Views

Author

Gus Wiseman, Apr 16 2019

Keywords

Comments

The omega-sequence of an integer partition is the sequence of lengths of the multisets obtained by repeatedly taking the multiset of multiplicities until a singleton is reached. For example, the partition (32211) has chain of multisets of multiplicities {1,1,2,2,3} -> {1,2,2} -> {1,2} -> {1,1} -> {2}, so its omega-sequence is (5,3,2,2,1).
The Heinz numbers of these partitions are given by A325247.

Examples

			The a(1) = 1 through a(10) = 6 partitions (A = 10):
  1  2   3    4     5      6       7        8         9          A
     11  111  22    11111  33      1111111  44        333        55
              1111         222              2222      222111     3322
                           2211             3311      111111111  4411
                           111111           11111111             22222
                                                                 1111111111
		

Crossrefs

Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number).
Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (length/frequency depth).

Programs

  • Mathematica
    omseq[ptn_List]:=If[ptn=={},{},Length/@NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]];
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@omseq[#]&]],{n,0,30}]

Formula

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

A325251 Numbers whose omega-sequence covers an initial interval of positive integers.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 67, 68, 69, 71, 73, 74, 75, 76, 77, 79, 82, 83, 84, 85, 86
Offset: 1

Views

Author

Gus Wiseman, Apr 16 2019

Keywords

Comments

We define the omega-sequence of n (row n of A323023) to have length A323014(n) = adjusted frequency depth of n, and the k-th term is Omega(red^{k-1}(n)), where Omega = A001222 and red^{k} is the k-th functional iteration of red = A181819, defined by red(n = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of n. For example, we have 180 -> 18 -> 6 -> 4 -> 3, so the omega-sequence of 180 is (5,3,2,2,1).
The enumeration of these partitions by sum is given by A325260.

Examples

			The sequence of terms together with their omega sequences begins:
   1:              31: 1             63: 3 2 2 1
   2: 1            33: 2 2 1         65: 2 2 1
   3: 1            34: 2 2 1         67: 1
   4: 2 1          35: 2 2 1         68: 3 2 2 1
   5: 1            37: 1             69: 2 2 1
   6: 2 2 1        38: 2 2 1         71: 1
   7: 1            39: 2 2 1         73: 1
   9: 2 1          41: 1             74: 2 2 1
  10: 2 2 1        43: 1             75: 3 2 2 1
  11: 1            44: 3 2 2 1       76: 3 2 2 1
  12: 3 2 2 1      45: 3 2 2 1       77: 2 2 1
  13: 1            46: 2 2 1         79: 1
  14: 2 2 1        47: 1             82: 2 2 1
  15: 2 2 1        49: 2 1           83: 1
  17: 1            50: 3 2 2 1       84: 4 3 2 2 1
  18: 3 2 2 1      51: 2 2 1         85: 2 2 1
  19: 1            52: 3 2 2 1       86: 2 2 1
  20: 3 2 2 1      53: 1             87: 2 2 1
  21: 2 2 1        55: 2 2 1         89: 1
  22: 2 2 1        57: 2 2 1         90: 4 3 2 2 1
  23: 1            58: 2 2 1         91: 2 2 1
  25: 2 1          59: 1             92: 3 2 2 1
  26: 2 2 1        60: 4 3 2 2 1     93: 2 2 1
  28: 3 2 2 1      61: 1             94: 2 2 1
  29: 1            62: 2 2 1         95: 2 2 1
		

Crossrefs

Positions of normal numbers (A055932) in A325248.
Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number).

Programs

  • Mathematica
    normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
    omseq[n_Integer]:=If[n<=1,{},Total/@NestWhileList[Sort[Length/@Split[#]]&,Sort[Last/@FactorInteger[n]],Total[#]>1&]];
    Select[Range[100],normQ[omseq[#]]&]

A325274 Sum of the omega-sequence of n!.

Original entry on oeis.org

0, 0, 1, 5, 9, 13, 14, 20, 23, 25, 24, 30, 33, 35, 35, 40, 44, 46, 49, 51, 54, 56, 59, 61, 65, 67, 72, 75, 78, 80, 83, 85, 90, 90, 95, 97, 101, 103, 105, 106, 110, 112, 115, 117, 122, 125, 127, 129, 134, 136, 139, 140, 143, 145, 149, 153, 157, 159, 160, 162
Offset: 0

Views

Author

Gus Wiseman, Apr 18 2019

Keywords

Comments

We define the omega-sequence of n (row n of A323023) to have length A323014(n) = adjusted frequency depth of n, and the k-th term is Omega(red^{k-1}(n)), where Omega = A001222 and red^{k} is the k-th functional iteration of red = A181819, defined by red(n = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of n. For example, we have 180 -> 18 -> 6 -> 4 -> 3, so the omega-sequence of 180 is (5,3,2,2,1), with sum 13.

Crossrefs

a(n) = A056239(A325275(n)).
Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number), A325249 (sum).

Programs

  • Mathematica
    omseq[n_Integer]:=If[n<=1,{},Total/@NestWhileList[Sort[Length/@Split[#]]&,Sort[Last/@FactorInteger[n]],Total[#]>1&]];
    Table[Total[omseq[n!]],{n,0,100}]

A325275 Heinz number of the omega-sequence of n!.

Original entry on oeis.org

1, 1, 2, 18, 126, 990, 850, 11970, 19530, 25830, 4606, 73458, 92862, 116298, 43134, 229086, 275418, 366894, 440946, 515394, 568062, 613206, 769158, 963378, 1060254, 1135602, 6108570, 6431490, 6915870, 8923590, 9398610, 10191870, 11352510, 3139866, 16458210
Offset: 0

Views

Author

Gus Wiseman, Apr 18 2019

Keywords

Comments

We define the omega-sequence of n (row n of A323023) to have length A323014(n) = adjusted frequency depth of n, and the k-th term is Omega(red^{k-1}(n)), where Omega = A001222 and red^{k} is the k-th functional iteration of red = A181819, defined by red(n = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of n. For example, we have 180 -> 18 -> 6 -> 4 -> 3, so the omega-sequence of 180 is (5,3,2,2,1).
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Crossrefs

A001222(a(n)) = A325272.
A055396(a(n)/2) = A325273.
A056239(a(n)) = A325274.
Row n of A325276 is row a(n) of A112798.
Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number), A325249 (sum).

Programs

  • Mathematica
    omseq[n_Integer]:=If[n<=1,{},Total/@NestWhileList[Sort[Length/@Split[#]]&,Sort[Last/@FactorInteger[n]],Total[#]>1&]];
    Table[Times@@Prime/@omseq[n!],{n,30}]

A353855 Last term of the trajectory of the composition run-sum transformation (condensation) of the n-th composition in standard order.

Original entry on oeis.org

0, 1, 2, 2, 4, 5, 6, 4, 8, 9, 8, 8, 12, 13, 8, 8, 16, 17, 18, 18, 20, 17, 22, 20, 24, 25, 24, 24, 20, 17, 18, 16, 32, 33, 34, 34, 32, 37, 38, 32, 40, 41, 32, 34, 44, 45, 32, 40, 48, 49, 50, 50, 52, 49, 54, 52, 40, 41, 40, 32, 32, 37, 34, 32, 64, 65, 66, 66, 68
Offset: 0

Views

Author

Gus Wiseman, Jun 01 2022

Keywords

Comments

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4). The run-sum trajectory is obtained by repeatedly taking the run-sum transformation (A353847) until the rank of an anti-run is reached. For example, the trajectory 11 -> 10 -> 8, corresponding to (2,1,1) -> (2,2) -> (4), has last term a(11) = 8.
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.

Examples

			The trajectory 139 -> 138 -> 136 -> 128 ends with a(139) = 128.
		

Crossrefs

The version for partitions is A353842.
This trajectory has length A353854, firsts A072639, partitions A353841.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order.
A318928 gives runs-resistance of binary expansion.
A325268 counts partitions by omicron, rank statistic A304465.
A333627 ranks the run-lengths of standard compositions.
A351014 counts distinct runs in standard compositions, firsts A351015.
A353840-A353846 pertain to a partition's run-sum trajectory.
A353847 represents a composition's run-sums, partitions A353832.
A353853-A353859 pertain to a composition's run-sum trajectory.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Table[Total[2^Accumulate[Reverse[FixedPoint[Total/@Split[#]&,stc[n]]]]/2],{n,0,100}]
Previous Showing 21-30 of 51 results. Next