A240026 -id:A240026 - cp's OEIS frontend

A332725 Heinz numbers of integer partitions whose negated first differences are not unimodal.

90, 126, 180, 198, 234, 252, 270, 306, 342, 350, 360, 378, 396, 414, 450, 468, 504, 522, 525, 540, 550, 558, 594, 612, 630, 650, 666, 684, 700, 702, 720, 738, 756, 774, 792, 810, 825, 828, 846, 850, 882, 900, 910, 918, 936, 950, 954, 975, 990, 1008, 1026, 1044

Offset: 1

Gus Wiseman, Feb 26 2020

nonn

A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
    90: {1,2,2,3}
   126: {1,2,2,4}
   180: {1,1,2,2,3}
   198: {1,2,2,5}
   234: {1,2,2,6}
   252: {1,1,2,2,4}
   270: {1,2,2,2,3}
   306: {1,2,2,7}
   342: {1,2,2,8}
   350: {1,3,3,4}
   360: {1,1,1,2,2,3}
   378: {1,2,2,2,4}
   396: {1,1,2,2,5}
   414: {1,2,2,9}
   450: {1,2,2,3,3}
   468: {1,1,2,2,6}
   504: {1,1,1,2,2,4}
   522: {1,2,2,10}
   525: {2,3,3,4}
   540: {1,1,2,2,2,3}
For example, 350 is the Heinz number of (4,3,3,1), with negated first differences (1,0,2), which is not unimodal, so 350 is in the sequence.

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

The complement is too full.
The enumeration of these partitions by sum is A332284.
The version where the last part is taken to be 0 is A332832.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Partitions with non-unimodal run-lengths are A332281.
Heinz numbers of partitions with non-unimodal run-lengths are A332282.
Heinz numbers of partitions with weakly increasing differences are A325360.
Cf. A001523, A007052, A240026, A332280, A332283, A332285, A332286, A332288, A332294, A332579, A332639, A332642.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Select[Range[1000],!unimodQ[Differences[primeMS[#]]]&]

A049993 a(n) is the number of arithmetic progressions of 3 or more positive integers, nondecreasing with sum <= n.

Original entry on oeis.org

0, 0, 1, 2, 3, 6, 7, 9, 13, 16, 17, 24, 25, 28, 36, 40, 41, 51, 52, 58, 68, 72, 73, 87, 91, 95, 107, 114, 115, 134, 135, 141, 155, 160, 167, 189, 190, 195, 211, 223, 224, 248, 249, 257, 282, 288, 289, 316, 320, 332, 353, 362, 363, 392, 401, 413, 436, 443, 444, 484, 485, 492, 522, 533, 543, 578

Offset: 1

Clark Kimberling

nonn

Sadek Bouroubi and Nesrine Benyahia Tani, Integer partitions into arithmetic progressions, Rostok. Math. Kolloq. 64 (2009), 11-16.
Sadek Bouroubi and Nesrine Benyahia Tani, Integer partitions into arithmetic progressions with an odd common difference, Integers 9(1) (2009), 77-81.
Graeme McRae, Counting arithmetic sequences whose sum is n.
Graeme McRae, Counting arithmetic sequences whose sum is n [Cached copy]
Augustine O. Munagi, Combinatorics of integer partitions in arithmetic progression, Integers 10(1) (2010), 73-82.
Augustine O. Munagi and Temba Shonhiwa, On the partitions of a number into arithmetic progressions, Journal of Integer Sequences 11 (2008), Article 08.5.4.
A. N. Pacheco Pulido, Extensiones lineales de un poset y composiciones de números multipartitos, Maestría thesis, Universidad Nacional de Colombia, 2012.
Wikipedia, Arithmetic progression.

Cf. A007862, A014405, A014406, A049980, A049981, A049982, A049983, A049986, A049987, A049988, A049989, A049990, A049991, A049992, A240026, A240027, A307824, A320466, A325325.

From Petros Hadjicostas, Sep 29 2019: (Start)
a(n) = Sum_{k = 1..n} A049992(k).
G.f.: (g.f. of A049992)/(1-x). (End)

More terms from Petros Hadjicostas, Sep 29 2019

A325363 Heinz numbers of integer partitions into nonzero triangular numbers A000217.

Original entry on oeis.org

1, 2, 4, 5, 8, 10, 13, 16, 20, 25, 26, 29, 32, 40, 47, 50, 52, 58, 64, 65, 73, 80, 94, 100, 104, 107, 116, 125, 128, 130, 145, 146, 151, 160, 169, 188, 197, 200, 208, 214, 232, 235, 250, 256, 257, 260, 290, 292, 302, 317, 320, 325, 338, 365, 376, 377, 394, 397

Offset: 1

Gus Wiseman, May 02 2019

nonn

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

The enumeration of these partitions by sum is given by A007294.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    4: {1,1}
    5: {3}
    8: {1,1,1}
   10: {1,3}
   13: {6}
   16: {1,1,1,1}
   20: {1,1,3}
   25: {3,3}
   26: {1,6}
   29: {10}
   32: {1,1,1,1,1}
   40: {1,1,1,3}
   47: {15}
   50: {1,3,3}
   52: {1,1,6}
   58: {1,10}
   64: {1,1,1,1,1,1}
   65: {3,6}

Cf. A000217, A007294, A056239, A112798, A240026, A325327, A325360, A325362, A325367, A325390, A325394, A325400.

nn=1000;
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
trgs=Table[n*(n+1)/2,{n,Sqrt[2*PrimePi[nn]]}];
Select[Range[nn],SubsetQ[trgs,primeMS[#]]&]

cp's OEIS Frontend

A332725 Heinz numbers of integer partitions whose negated first differences are not unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A049993 a(n) is the number of arithmetic progressions of 3 or more positive integers, nondecreasing with sum <= n.

Views

Author

Keywords

Links

Crossrefs

Formula

Extensions

A325363 Heinz numbers of integer partitions into nonzero triangular numbers A000217.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica