A357850 Numbers whose prime indices do not have weakly decreasing run-sums. Heinz numbers of the partitions counted by A357865.
6, 10, 14, 15, 18, 20, 21, 22, 26, 28, 30, 33, 34, 35, 36, 38, 39, 42, 44, 46, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 98, 99, 100, 102, 104, 105, 106, 108, 110, 111
Offset: 1
Keywords
Examples
The terms together with their prime indices begin: 6: {1,2} 10: {1,3} 14: {1,4} 15: {2,3} 18: {1,2,2} 20: {1,1,3} 21: {2,4} 22: {1,5} 26: {1,6} 28: {1,1,4} 30: {1,2,3} 33: {2,5} 34: {1,7} 35: {3,4} 36: {1,1,2,2} 38: {1,8} 39: {2,6} 42: {1,2,4}
Links
- Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)
Crossrefs
Programs
-
Mathematica
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; Select[Range[100],!GreaterEqual@@Total/@Split[primeMS[#]]&]
Comments