[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A325399
Heinz numbers of integer partitions whose k-th differences are strictly decreasing for all k >= 0.
9
1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 67, 69, 70, 71, 73, 74, 77, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 115
OFFSET
1,2
COMMENTS
First differs from A167171 in having 70. First differs from A325398 in lacking 42.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
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 enumeration of these partitions by sum is given by A325393.
EXAMPLE
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
3: {2}
5: {3}
6: {1,2}
7: {4}
10: {1,3}
11: {5}
13: {6}
14: {1,4}
15: {2,3}
17: {7}
19: {8}
21: {2,4}
22: {1,5}
23: {9}
26: {1,6}
29: {10}
31: {11}
33: {2,5}
MATHEMATICA
primeptn[n_]:=If[n==1, {}, Reverse[Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]]];
Select[Range[100], And@@Table[Greater@@Differences[primeptn[#], k], {k, 0, PrimeOmega[#]}]&]
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 02 2019
STATUS
approved