OFFSET
1,2
COMMENTS
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The augmented differences aug(y) of an integer partition y of length k are given by aug(y)_i = y_i - y_{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
The enumeration of these partitions by sum is given by A325349.
LINKS
EXAMPLE
The sequence of terms together with their prime indices begins:
1: {}
2: {1}
3: {2}
5: {3}
6: {1,2}
7: {4}
9: {2,2}
10: {1,3}
11: {5}
13: {6}
14: {1,4}
17: {7}
19: {8}
21: {2,4}
22: {1,5}
23: {9}
25: {3,3}
26: {1,6}
29: {10}
31: {11}
MATHEMATICA
primeptn[n_]:=If[n==1, {}, Reverse[Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]]];
aug[y_]:=Table[If[i<Length[y], y[[i]]-y[[i+1]]+1, y[[i]]], {i, Length[y]}];
Select[Range[100], UnsameQ@@aug[primeptn[#]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 02 2019
STATUS
approved