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-13 of 13 results.

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}

Links

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.
Cf. A000005, A000040, A120944, A238354, A286469, A286470, A325160, A325161, A355526, A355531.

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).

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

Links

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.
Cf. A124010, A243055, A243056, A325352, A325390, A355523, A355528.

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

A355522 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with maximal difference k, if singletons have maximal difference 0.

Original entry on oeis.org

2, 2, 1, 3, 1, 1, 2, 3, 1, 1, 4, 3, 2, 1, 1, 2, 6, 3, 2, 1, 1, 4, 6, 6, 2, 2, 1, 1, 3, 10, 6, 5, 2, 2, 1, 1, 4, 11, 11, 6, 4, 2, 2, 1, 1, 2, 16, 13, 10, 5, 4, 2, 2, 1, 1, 6, 17, 19, 12, 9, 4, 4, 2, 2, 1, 1, 2, 24, 24, 18, 11, 8, 4, 4, 2, 2, 1, 1
Offset: 2

Views

Author

Gus Wiseman, Jul 08 2022

Keywords

Comments

The triangle starts with n = 2, and k ranges from 0 to n - 2.

Examples

			Triangle begins:
  2
  2  1
  3  1  1
  2  3  1  1
  4  3  2  1  1
  2  6  3  2  1  1
  4  6  6  2  2  1  1
  3 10  6  5  2  2  1  1
  4 11 11  6  4  2  2  1  1
  2 16 13 10  5  4  2  2  1  1
  6 17 19 12  9  4  4  2  2  1  1
  2 24 24 18 11  8  4  4  2  2  1  1
  4 27 34 22 17 10  7  4  4  2  2  1  1
  4 35 39 33 20 15  9  7  4  4  2  2  1  1
  5 39 56 39 30 19 14  8  7  4  4  2  2  1  1
For example, row n = 8 counts the following reversed partitions:
  (8)         (233)      (35)      (125)    (26)    (116)  (17)
  (44)        (1223)     (134)     (11114)  (1115)
  (2222)      (11123)    (224)
  (11111111)  (11222)    (1124)
              (111122)   (1133)
              (1111112)  (111113)

Links

Crossrefs

Crossrefs found in the link are not repeated here.
Leading terms are A000005.
Row sums are A000041.
Counts m such that A056239(m) = n and A286470(m) = k.
This is a trimmed version of A238353, which extends to k = n.
For minimum instead of maximum we have A238354.
Ignoring singletons entirely gives A238710.
A001522 counts partitions with a fixed point (unproved), ranked by A352827.
A115720 and A115994 count partitions by their Durfee square.
A279945 counts partitions by number of distinct differences.
Cf. A064428, A091602, A179254, A238352, A239455, A286469, A325404, A355524, A355526, A355532.

Programs

  • Mathematica
    Table[Length[Select[Reverse/@IntegerPartitions[n], If[Length[#]==1,0,Max@@Differences[#]]==k&]],{n,2,15},{k,0,n-2}]
Previous Showing 11-13 of 13 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.