%I#4 2014年12月15日04:20:03

%S 1,6,60,841121411682522702944505701188132237624362508，

%电话：458450165406642671108850135661427015834174162332031152，

%电话：344525852062568727327521079035

%N作为字符串处理，phi（N）是sigma（N）的子字符串。

%H Harvey P.Dale，n表，n=1..100的a（n）</a>

%e phi（84）=24，sigma（24）=224的子串，因此84是序列的项。

%t r={}；Do[If[StringPosition[ToString[DivisorSigma[1，i]]，ToString[CulerPhi[i]]]！={}，r=附加[r，i]]，{i，1，10^5}]；第页

%t psQ[n_]：=模块[{ep=整数位数[EulerPhi[n]]，ds=整数位数[1，n]]}，成员Q[Partition[ds，Length[ep]，1]，ep]]；选择[Range[80000]，psQ]（*哈维·P·戴尔，2014年12月15日*）

%K基，nonn

%O 1,2号机组

%A _Joseph L.Pe，2002年9月25日