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 71-80 of 172 results. Next

A355526 Maximal difference between adjacent prime indices of n, or k if n is the k-th prime.

Original entry on oeis.org

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

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

			The prime indices of 9842 are {1,4,8,12}, with differences (3,4,4), so a(9842) = 4.

Links

Crossrefs

Crossrefs found in the link are not repeated here.
Positions of first appearances are 4 followed by A000040.
Positions of 0's are A025475, minimal version A013929.
Positions of 1's are 2 followed by A066312, minimal version A355527.
Triangle A238710 counts m such that A056239(m) = n and a(m) = k.
Prepending 0 to the prime indices gives A286469, minimal version A355528.
See also A286470, minimal version A355524.
The minimal version is A355525, triangle A238709.
The augmented version is A355532.
A001522 counts partitions with a fixed point (unproved), ranked by A352827.
A287352, A355533, A355534, A355536 list the differences of prime indices.
Cf. A000005, A047966, A091602, A238353, A279945, A325160, A325161, A352822, A351294, A355530.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[If[PrimeQ[n],PrimePi[n],Max@@Differences[primeMS[n]]],{n,2,100}]

A364467 Number of integer partitions of n where some part is the difference of two consecutive parts.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 4, 5, 9, 13, 21, 28, 42, 55, 78, 106, 144, 187, 255, 325, 429, 554, 717, 906, 1165, 1460, 1853, 2308, 2899, 3582, 4468, 5489, 6779, 8291, 10173, 12363, 15079, 18247, 22124, 26645, 32147, 38555, 46285, 55310, 66093, 78684, 93674, 111104
Offset: 0

Views

Author

Gus Wiseman, Jul 31 2023

Keywords

Comments

In other words, the parts are not disjoint from their own first differences.

Examples

			The a(3) = 1 through a(9) = 13 partitions:
  (21)  (211)  (221)   (42)     (421)     (422)      (63)
               (2111)  (321)    (2221)    (431)      (621)
                       (2211)   (3211)    (521)      (3321)
                       (21111)  (22111)   (3221)     (4221)
                                (211111)  (4211)     (4311)
                                          (22211)    (5211)
                                          (32111)    (22221)
                                          (221111)   (32211)
                                          (2111111)  (42111)
                                                     (222111)
                                                     (321111)
                                                     (2211111)
                                                     (21111111)

Crossrefs

For all differences of pairs parts we have A363225, complement A364345.
The complement is counted by A363260.
For subsets of {1..n} we have A364466, complement A364463.
The strict case is A364536, complement A364464.
These partitions have ranks A364537.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A050291 counts double-free subsets, complement A088808.
A323092 counts double-free partitions, ranks A320340.
A325325 counts partitions with distinct first differences.
Cf. A002865, A025065, A093971, A108917, A196723, A229816, A236912, A237113, A237667, A320347, A326083.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Intersection[#,-Differences[#]]!={}&]],{n,0,30}]
  • Python
    from collections import Counter
from sympy.utilities.iterables import partitions
def A364467(n): return sum(1 for s,p in map(lambda x: (x[0],tuple(sorted(Counter(x[1]).elements()))), partitions(n,size=True)) if not set(p).isdisjoint({p[i+1]-p[i] for i in range(s-1)})) # Chai Wah Wu, Sep 26 2023

A383530 Number of non Wilf and non conjugate Wilf integer partitions of n.

Original entry on oeis.org

0, 0, 0, 1, 0, 0, 3, 2, 5, 12, 14, 19, 35, 38, 55, 83, 107, 137, 209, 252, 359, 462, 612, 757, 1032, 1266, 1649, 2050, 2617, 3210, 4111, 4980, 6262, 7659, 9479, 11484, 14224, 17132, 20962, 25259, 30693, 36744, 44517, 53043, 63850, 75955, 90943, 107721, 128485
Offset: 0

Views

Author

Gus Wiseman, May 14 2025

Keywords

Comments

An integer partition is Wilf iff its multiplicities are all different (ranked by A130091). It is conjugate Wilf iff its nonzero 0-appended differences are all different (ranked by A383512).

Examples

			The a(0) = 0 through a(9) = 12 partitions:
  .  .  .  (21)  .  .  (42)    (421)   (431)    (63)
                       (321)   (3211)  (521)    (432)
                       (2211)          (3221)   (531)
                                       (4211)   (621)
                                       (32111)  (3321)
                                                (4221)
                                                (4311)
                                                (5211)
                                                (32211)
                                                (42111)
                                                (222111)
                                                (321111)

Links

Crossrefs

Negating both sides gives A383507, ranks A383532.
These partitions are ranked by A383531.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A098859 counts Wilf partitions, ranks A130091, conjugate A383512.
A239455 counts Look-and-Say partitions, complement A351293.
A336866 counts non Wilf partitions, ranks A130092, conjugate A383513.
A381431 is the section-sum transform, union A381432, complement A381433.
A383534 gives 0-prepended differences by rank, see A325351.
A383709 counts Wilf partitions with distinct 0-appended differences, ranks A383712.
Cf. A033461, A047966, A111133, A320348, A325324, A325325, A325349, A325367, A325368, A325388, A383506.

Programs

  • Mathematica
    conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]], {k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Length/@Split[#]&&!UnsameQ@@Length/@Split[conj[#]]&]], {n,0,30}]

Formula

These partitions have Heinz numbers A130092 /\ A383513.

A383531 Heinz numbers of integer partitions that do not have distinct multiplicities (Wilf) or distinct nonzero 0-appended differences (conjugate Wilf).

Original entry on oeis.org

6, 21, 30, 36, 42, 60, 65, 66, 70, 78, 84, 90, 102, 105, 110, 114, 120, 126, 132, 133, 138, 140, 150, 154, 156, 165, 168, 174, 180, 186, 198, 204, 210, 216, 220, 222, 228, 231, 234, 238, 240, 246, 252, 258, 264, 270, 273, 276, 280, 282, 286, 294, 300, 306, 308
Offset: 1

Views

Author

Gus Wiseman, May 15 2025

Keywords

Comments

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.
An integer partition is Wilf iff its multiplicities are all different (ranked by A130091). It is conjugate Wilf iff its nonzero 0-appended differences are all different (ranked by A383512).

Examples

			The terms together with their prime indices begin:
    6: {1,2}
   21: {2,4}
   30: {1,2,3}
   36: {1,1,2,2}
   42: {1,2,4}
   60: {1,1,2,3}
   65: {3,6}
   66: {1,2,5}
   70: {1,3,4}
   78: {1,2,6}
   84: {1,1,2,4}
   90: {1,2,2,3}
  102: {1,2,7}
  105: {2,3,4}
  110: {1,3,5}
  114: {1,2,8}
  120: {1,1,1,2,3}

Crossrefs

These partitions are counted by A383530.
Negating both sides gives A383532, counted by A383507.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A098859 counts Wilf partitions, ranks A130091, conjugate A383512.
A122111 represents conjugation in terms of Heinz numbers.
A325324 counts integer partitions with distinct 0-appended differences, ranks A325367.
A336866 counts non Wilf partitions, ranks A130092, conjugate A383513.
A383709 counts Wilf partitions with distinct 0-appended differences, ranks A383712.
Cf. A001223, A047966, A181819, A238745, A320348, A325325, A325349, A325366, A325368, A325388, A381431, A383506.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y, Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],!UnsameQ@@Length/@Split[prix[#]] && !UnsameQ@@Length/@Split[conj[prix[#]]]&]

Formula

Equals A130092 /\ A383513.

A384887 Number of integer partitions of n with all equal lengths of maximal gapless runs (decreasing by 0 or 1).

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 9, 10, 14, 18, 21, 26, 35, 39, 46, 58, 68, 79, 97, 111, 131, 155, 177, 206, 246, 278, 318, 373, 423, 483, 563, 632, 722, 827, 931, 1058, 1209, 1354, 1528, 1736, 1951, 2188, 2475, 2762, 3097, 3488, 3886, 4342, 4876, 5414, 6038, 6741, 7482
Offset: 0

Views

Author

Gus Wiseman, Jun 15 2025

Keywords

Examples

			The partition y = (6,5,5,5,3,3,2,1) has maximal gapless runs ((6,5,5,5),(3,3,2,1)), with lengths (4,4), so y is counted under a(30).
The a(1) = 1 through a(8) = 14 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (211)   (221)    (51)      (61)       (62)
                    (1111)  (2111)   (222)     (322)      (71)
                            (11111)  (321)     (2221)     (332)
                                     (2211)    (3211)     (2222)
                                     (21111)   (22111)    (3221)
                                     (111111)  (211111)   (3311)
                                               (1111111)  (22211)
                                                          (32111)
                                                          (221111)
                                                          (2111111)
                                                          (11111111)

Crossrefs

The strict case is A384886, distinct A384178.
For distinct instead of equal lengths we have A384884.
For anti-runs instead of runs we have A384888, distinct A384885.
For subsets instead of strict partitions we have A243815.
Without counting decreases by 0 we get A384904.
A000041 counts integer partitions, strict A000009.
A007690 counts partitions with no singletons, complement A183558.
A034296 counts flat or gapless partitions, ranks A066311 or A073491.
A098859 counts Wilf partitions (distinct multiplicities), complement A336866.
A355394 counts partitions without a neighborless part, singleton case A355393.
A356236 counts partitions with a neighborless part, singleton case A356235.
A356606 counts strict partitions without a neighborless part, complement A356607.
Cf. A008284, A044813, A047993, A325324, A325325, A356226, A356230, A356233, A356234, A384175, A384177, A384880.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],SameQ@@Length/@Split[#,#2>=#1-1&]&]],{n,0,15}]

A325354 Number of reversed integer partitions of n whose k-th differences are weakly increasing for all k.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 10, 11, 15, 19, 24, 25, 36, 37, 43, 54, 63, 64, 80, 81, 100, 113, 122, 123, 151, 166, 178, 195, 217, 218, 269, 270, 295, 316, 332, 372, 424, 425, 447, 472, 547, 550, 616, 617, 659, 750, 777, 782, 862, 885, 995, 1032, 1083, 1090, 1176, 1275
Offset: 0

Views

Author

Gus Wiseman, May 02 2019

Keywords

Comments

The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) are (-3,-2).
The zeroth differences of a sequence are the sequence itself, while the k-th differences for k > 0 are the differences of the (k-1)-th differences.
The Heinz numbers of these partitions are given by A325400.

Examples

			The a(1) = 1 through a(8) = 15 reversed partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (12)   (13)    (14)     (15)      (16)       (17)
             (111)  (22)    (23)     (24)      (25)       (26)
                    (112)   (113)    (33)      (34)       (35)
                    (1111)  (1112)   (114)     (115)      (44)
                            (11111)  (123)     (124)      (116)
                                     (222)     (223)      (125)
                                     (1113)    (1114)     (224)
                                     (11112)   (11113)    (1115)
                                     (111111)  (111112)   (1124)
                                               (1111111)  (2222)
                                                          (11114)
                                                          (111113)
                                                          (1111112)
                                                          (11111111)

Links

Crossrefs

Cf. A007294, A240026, A325353, A325356, A325360, A325362, A325391, A325393, A325394, A325400, A325404, A325406, A325468.

Programs

  • Mathematica
    Table[Length[Select[Sort/@IntegerPartitions[n],And@@Table[OrderedQ[Differences[#,k]],{k,0,Length[#]}]&]],{n,0,30}]

A325992 Heinz numbers of integer partitions such that not every ordered pair of distinct parts has a different difference.

Original entry on oeis.org

30, 60, 90, 105, 110, 120, 150, 180, 210, 220, 238, 240, 270, 273, 300, 315, 330, 360, 385, 390, 420, 440, 450, 462, 476, 480, 506, 510, 525, 540, 546, 550, 570, 600, 627, 630, 660, 690, 714, 720, 735, 750, 770, 780, 806, 810, 819, 840, 858, 870, 880, 900, 910
Offset: 1

Views

Author

Gus Wiseman, Jun 02 2019

Keywords

Comments

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

Examples

			The sequence of terms together with their prime indices begins:
   30: {1,2,3}
   60: {1,1,2,3}
   90: {1,2,2,3}
  105: {2,3,4}
  110: {1,3,5}
  120: {1,1,1,2,3}
  150: {1,2,3,3}
  180: {1,1,2,2,3}
  210: {1,2,3,4}
  220: {1,1,3,5}
  238: {1,4,7}
  240: {1,1,1,1,2,3}
  270: {1,2,2,2,3}
  273: {2,4,6}
  300: {1,1,2,3,3}
  315: {2,2,3,4}
  330: {1,2,3,5}
  360: {1,1,1,2,2,3}
  385: {3,4,5}
  390: {1,2,3,6}

Crossrefs

The subset case is A143823.
The maximal case is A325879.
The integer partition case is A325858.
The strict integer partition case is A325876.
Heinz numbers of the counterexamples are given by A325992.
Cf. A002033, A056239, A108917, A112798, A143824, A325325, A325868, A325879, A325991, A325993, A325994.

Programs

  • Mathematica
    Select[Range[1000],!UnsameQ@@Subtract@@@Subsets[PrimePi/@First/@FactorInteger[#],{2}]&]

A332728 Number of integer partitions of n whose negated first differences (assuming the last part is zero) are unimodal.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 7, 8, 10, 13, 14, 17, 22, 24, 28, 34, 37, 43, 53, 56, 64, 76, 83, 93, 111, 117, 131, 153, 163, 182, 210, 225, 250, 284, 304, 332, 377, 401, 441, 497, 529, 576, 647, 687, 745, 830, 883, 955, 1062, 1127, 1216, 1339, 1422, 1532, 1684, 1779, 1914
Offset: 0

Views

Author

Gus Wiseman, Feb 26 2020

Keywords

Comments

First differs from A000041 at a(6) = 10, A000041(6) = 11.
A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

Examples

			The a(1) = 1 through a(8) = 10 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (11111)  (222)     (331)      (71)
                                     (321)     (421)      (332)
                                     (111111)  (2221)     (431)
                                               (1111111)  (521)
                                                          (2222)
                                                          (11111111)

Links

Crossrefs

The non-negated version is A332283.
The non-negated complement is counted by A332284.
The strict case is A332577.
The case of run-lengths (instead of differences) is A332638.
The complement is counted by A332744.
The Heinz numbers of partitions not in this class are A332287.
Unimodal compositions are A001523.
Compositions whose negation is unimodal are A332578.
Compositions whose run-lengths are unimodal are A332726.
Cf. A007052, A332280, A332285, A332286, A332639, A332642, A332669, A332670, A332741.

Programs

  • Mathematica
    unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[IntegerPartitions[n],unimodQ[-Differences[Append[#,0]]]&]],{n,0,30}]

A355525 Minimal difference between adjacent prime indices of n, or k if n is the k-th prime.

Original entry on oeis.org

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

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

			The prime indices of 9842 are {1,4,8,12}, with differences (3,4,4), so a(9842) = 3.

Links

Crossrefs

Crossrefs found in the link are not repeated here.
Positions of first appearances are 4 followed by A000040.
Positions of 0's are A013929, see also A130091.
Triangle A238709 counts m such that A056239(m) = n and a(m) = k.
For maximal instead of minimal difference we have A286470.
Positions of terms > 1 are A325160, also A325161.
See also A355524, A355528.
Positions of 1's are A355527.
A001522 counts partitions with a fixed point (unproved), ranked by A352827.
A238352 counts partitions by fixed points, rank statistic A352822.
A287352, A355533, A355534, A355536 list the differences of prime indices.
Cf. A066312, A120944, A238353, A279945, A286469, A325351, A325352, A351294, A355526, A355530, A355531, A355532.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[If[PrimeQ[n],PrimePi[n],Min@@Differences[primeMS[n]]],{n,2,100}]

A355533 Irregular triangle read by rows where row n lists the differences between adjacent prime indices of n; if n is prime(k), then row n is just (k).

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jul 12 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 version where zero is prepended to the prime indices before taking differences is A287352.
One could argue that row n = 1 is empty, but adding it changes only the offset, with no effect on the data.

Examples

			Triangle begins (showing n, prime indices, differences*):
   2:    (1)       1
   3:    (2)       2
   4:   (1,1)      0
   5:    (3)       3
   6:   (1,2)      1
   7:    (4)       4
   8:  (1,1,1)    0 0
   9:   (2,2)      0
  10:   (1,3)      2
  11:    (5)       5
  12:  (1,1,2)    0 1
  13:    (6)       6
  14:   (1,4)      3
  15:   (2,3)      1
  16: (1,1,1,1)  0 0 0
For example, the prime indices of 24 are (1,1,1,2), with differences (0,0,1).

Links

Crossrefs

Crossrefs found in the link are not repeated here.
Row sums are A243056.
The version for prime indices prepended by 0 is A287352.
Constant rows have indices A325328.
Strict rows have indices A325368.
Number of distinct terms in each row are 1 if prime, otherwise A355523.
Row minima are A355525, augmented A355531.
Row maxima are A355526, augmented A355535.
The augmented version is A355534, Heinz number A325351.
The version with prime-indexed rows empty is A355536, Heinz number A325352.
A112798 lists prime indices, sum A056239.
Cf. A001222, A066312, A124010, A286469, A286470, A325160, A325390, A355524.

Programs

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

Formula

Row lengths are 1 or A001222(n) - 1 depending on whether n is prime.
Previous Showing 71-80 of 172 results. Next

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

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