OFFSET
1,1
COMMENTS
EXAMPLE
The terms together with their prime indices begin:
12: {1,1,2}
18: {1,2,2}
20: {1,1,3}
24: {1,1,1,2}
28: {1,1,4}
40: {1,1,1,3}
44: {1,1,5}
45: {2,2,3}
48: {1,1,1,1,2}
50: {1,3,3}
52: {1,1,6}
54: {1,2,2,2}
56: {1,1,1,4}
63: {2,2,4}
68: {1,1,7}
72: {1,1,1,2,2}
MATHEMATICA
Select[Range[100], PrimeNu[#]==2&&UnsameQ@@Last/@FactorInteger[#]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 01 2023
STATUS
approved