reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Gus Wiseman, <a href="/A325325/a325325.txt">Sequences counting and ranking integer partitions by the differences of their successive parts.</a>.
proposed
editing
editing
proposed
Also numbers of the form Product_{k = 1...b} prime(k * c) for some b >= 0 and c > 0.
proposed
editing
editing
proposed
Gus Wiseman, <a href="/A325325/a325325.txt">Sequences counting and ranking integer partitions by the differences of their successive parts.</a>
primeMSprimeptn[n_]:=If[n==1, {}, Reverse[Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]]];
Select[Range[100], SameQ@@Differences[PrependAppend[primeMSprimeptn[#], 0]]&]
approved
editing
proposed
approved
editing
proposed