（岩浆）lst:=[]；因子：=func<k|因子分解（k）>；IsSemiprime:=func<k|&+[d[2]：d in Factors（k）]eq 2>；IsOK:=func<k|IsSemiprime（k）和IsSquarefree（k）>；素数除数：=func<k|&cat[[因子（k）[j，1]：[1..Factors（k）[j，2]]]中的i：[1..#因子（k）]]>中的j；ConcatOfPrimeDivisors:=func<k|Seqint（反向（&cat[Reverse（IntegerToSequence（PrimeDiviors（k）[i]））：[1..#PrimeDiversors（k）]]）中的i）>；对于[1..9]中的n，做k:=1；重复k+：=1；t:=0；如果IsOK（k），则b:=k；而IsOK（b）做b:=ConcatOfPrimeDivisor（b）；t+：=1；结束while；结束条件：；直到t等于n；追加（~lst，k）；结束；第一阶段； //阿尔卡迪乌斯·韦索洛夫斯基2023年8月7日
