OFFSET
1,1
COMMENTS
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
EXAMPLE
The terms together with their prime indices begin:
5: {3}
10: {1,3}
13: {6}
15: {2,3}
20: {1,1,3}
23: {9}
25: {3,3}
26: {1,6}
30: {1,2,3}
35: {3,4}
37: {12}
39: {2,6}
40: {1,1,1,3}
45: {2,2,3}
46: {1,9}
47: {15}
50: {1,3,3}
52: {1,1,6}
55: {3,5}
60: {1,1,2,3}
MATHEMATICA
Select[Range[100], MemberQ[PrimePi/@First/@If[#==1, {}, FactorInteger[#]]/3, _?IntegerQ]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 23 2022
STATUS
approved