|
%I #10 Mar 31 2020 10:19:41
%S 90,126,198,234,270,306,342,350,378,414,522,525,540,550,558,594,630,
%T 650,666,702,738,756,774,810,825,846,850,918,950,954,975,990,1026,
%U 1050,1062,1078,1098,1134,1150,1170,1188,1206,1242,1274,1275,1278,1314,1350,1386
%N Numbers whose negated unsorted prime signature is not unimodal.
%C A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.
%C A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/UnimodalSequence.html">Unimodal Sequence</a>
%e The sequence of terms together with their prime indices begins:
%e 90: {1,2,2,3}
%e 126: {1,2,2,4}
%e 198: {1,2,2,5}
%e 234: {1,2,2,6}
%e 270: {1,2,2,2,3}
%e 306: {1,2,2,7}
%e 342: {1,2,2,8}
%e 350: {1,3,3,4}
%e 378: {1,2,2,2,4}
%e 414: {1,2,2,9}
%e 522: {1,2,2,10}
%e 525: {2,3,3,4}
%e 540: {1,1,2,2,2,3}
%e 550: {1,3,3,5}
%e 558: {1,2,2,11}
%e 594: {1,2,2,2,5}
%e 630: {1,2,2,3,4}
%e 650: {1,3,3,6}
%e 666: {1,2,2,12}
%e 702: {1,2,2,2,6}
%e For example, 630 has negated unsorted prime signature (-1,-2,-1,-1), which is not unimodal, so 630 is in the sequence.
%t unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]]
%t Select[Range[2000],!unimodQ[-Last/@FactorInteger[#]]&]
%Y These are the Heinz numbers of the partitions counted by A332639.
%Y The case that is not unimodal either is A332643.
%Y The version for compositions is A332669.
%Y The complement is A332282.
%Y Unimodal compositions are A001523.
%Y Non-unimodal permutations are A059204.
%Y Non-unimodal compositions are A115981.
%Y Unsorted prime signature is A124010.
%Y Non-unimodal normal sequences are A328509.
%Y The number of non-unimodal negated permutations of a multiset whose multiplicities are the prime indices of n is A332742(n).
%Y Partitions whose negated 0-appended first differences are not unimodal are A332744, with Heinz numbers A332832.
%Y Cf. A007052, A056239, A112798, A181821, A242031, A329747, A332280, A332281, A332578, A332671, A332831.
%K nonn
%O 1,1
%A _Gus Wiseman_, Feb 28 2020
|
