a252462[n_Integer]:=块[{a008578,a052126,a061395,a},
a008578[x_]:=如果[x==1,1,素数[x-1]];
a052126[x_]:=如果[x==1,1,x/系数整数[x][[-1]][[1];
a061395[x_]:=PrimePi[FactorInteger[x][[-1]][[1];
a[1]=1;
a[x_]:=a008578[a061395[x]]*a052126[x];
数组[a,n]];a252462【84】(*迈克尔·德弗利格,2014年12月21日*)
|