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 11-18 of 18 results.

A355532 Maximal augmented difference between adjacent reversed prime indices of n; a(1) = 0.

Original entry on oeis.org

0, 1, 2, 1, 3, 2, 4, 1, 2, 3, 5, 2, 6, 4, 2, 1, 7, 2, 8, 3, 3, 5, 9, 2, 3, 6, 2, 4, 10, 2, 11, 1, 4, 7, 3, 2, 12, 8, 5, 3, 13, 3, 14, 5, 2, 9, 15, 2, 4, 3, 6, 6, 16, 2, 3, 4, 7, 10, 17, 2, 18, 11, 3, 1, 4, 4, 19, 7, 8, 3, 20, 2, 21, 12, 2, 8, 4, 5, 22, 3, 2
Offset: 1

Views

Author

Gus Wiseman, Jul 14 2022

Keywords

Comments

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 augmented differences aug(q) of a (usually weakly decreasing) 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. For example, we have aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

Examples

			The reversed prime indices of 825 are (5,3,3,2), with augmented differences (3,1,2,2), so a(825) = 3.
		

Crossrefs

Crossrefs found in the link are not repeated here.
Prepending 1 to the positions of 1's gives A000079.
Positions of first appearances are A008578.
Positions of 2's are A065119.
The non-augmented version is A286470, also A355526.
The non-augmented minimal version is A355524, also A355525.
The minimal version is A355531.
Row maxima of A355534, which has Heinz number A325351.
A001222 counts prime indices, distinct A001221.
A112798 lists prime indices, sum A056239.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    aug[y_]:=Table[If[i
    				

A356958 Triangle read by rows: if n has weakly increasing prime indices (a,b,...,y,z) then row n is (b-a+1, ..., y-a+1, z-a+1).

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Dec 27 2022

Keywords

Comments

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.

Examples

			Triangle begins:
   1:   .
   2:   .
   3:   .
   4:   1
   5:   .
   6:   2
   7:   .
   8:  1 1
   9:   1
  10:   3
  11:   .
  12:  1 2
  13:   .
  14:   4
  15:   2
  16: 1 1 1
For example, the prime indices of 315 are (2,2,3,4), so row 315 is (2,3,4) - 2 + 1 = (1,2,3).
		

Crossrefs

Row lengths are A001222(n) - 1.
Indices of empty rows are A008578.
Even bisection is A112798.
Heinz numbers of rows are A246277.
An opposite version is A358172, Heinz numbers A358195.
Row sums are A359358(n) + A001222(n) - 1.
A112798 list prime indices, sum A056239.
A243055 subtracts the least prime index from the greatest.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[If[n==1,{},1-First[primeMS[n]]+Rest[primeMS[n]]],{n,100}]

A358172 Triangle read by rows: if n has weakly increasing prime indices (a,b,...,y,z) then row n is (z-a+1, z-b+1, ..., z-y+1).

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Dec 20 2022

Keywords

Comments

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.

Examples

			Triangle begins:
   1:   .
   2:   .
   3:   .
   4:   1
   5:   .
   6:   2
   7:   .
   8:  1 1
   9:   1
  10:   3
  11:   .
  12:  2 2
  13:   .
  14:   4
  15:   2
  16: 1 1 1
  17:   .
  18:  2 1
  19:   .
  20:  3 3
For example, the prime indices of 900 are (1,1,2,2,3,3), so row 900 is 3 - (1,1,2,2,3) + 1 = (3,3,2,2,1).
		

Crossrefs

Row lengths are A001222(n) - 1.
Indices of empty rows are A008578.
Even-indexed rows have sums A243503.
Row sums are A326844(n) + A001222(n) - 1.
An opposite version is A356958, Heinz numbers A246277.
Heinz numbers of the rows are A358195, even bisection A241916.
A112798 list prime indices, sum A056239.
A243055 subtracts the least prime index from the greatest.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[If[n==1,{},1+Last[primeMS[n]]-Most[primeMS[n]]],{n,100}]

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

Views

Author

Gus Wiseman, Jul 10 2022

Keywords

Comments

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.

Examples

			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

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.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Length[Union[Differences[primeMS[n]]]],{n,1000}]
  • PARI
    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

Extensions

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

Views

Author

Gus Wiseman, Jul 10 2022

Keywords

Comments

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.

Examples

			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}
		

Crossrefs

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.

Programs

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

Formula

Equals A005117 /\ (A005843 \/ A104210).

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.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Dec 27 2022

Keywords

Comments

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

Examples

			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.
		

Crossrefs

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.

Programs

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

Formula

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

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

Views

Author

Gus Wiseman, Nov 01 2022

Keywords

Comments

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.

Examples

			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
		

Crossrefs

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.

Programs

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

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

Views

Author

Gus Wiseman, Dec 21 2022

Keywords

Comments

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.

Examples

			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.
		

Crossrefs

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.

Programs

  • Mathematica
    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}]
Previous Showing 11-18 of 18 results.