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:
2: (1)
4: (1,1)
8: (1,1,1)
9: (2,2)
15: (3,2)
16: (1,1,1,1)
18: (2,2,1)
21: (4,2)
27: (2,2,2)
30: (3,2,1)
32: (1,1,1,1,1)
33: (5,2)
36: (2,2,1,1)
39: (6,2)
42: (4,2,1)
45: (3,2,2)
51: (7,2)
54: (2,2,2,1)
For example, the partition (3,2,2) with Heinz number 45 has a fixed point at position 2, so 45 is in the sequence.
MATHEMATICA
pq[y_]:=Length[Select[Range[Length[y]], #==y[[#]]&]];
Select[Range[100], pq[Reverse[Flatten[Cases[FactorInteger[#], {p_, k_}:>Table[PrimePi[p], {k}]]]]]==1&]
CROSSREFS
* = unproved
A122111 represents partition conjugation using Heinz numbers.
A352828 counts strict partitions without a fixed point.
A352833 counts partitions by fixed points.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 06 2022
STATUS
approved