%I #4 Dec 15 2014 04:20:03

%S 1,6,60,84,112,141,168,252,270,294,450,570,1188,1320,2376,2436,2508,

%T 4584,5016,5406,6426,7110,8850,13566,14270,15834,17416,23320,31152,

%U 34452,58520,62568,72732,75210,79035

%N Treated as strings, phi(n) is a substring of sigma(n).

%H Harvey P. Dale, <a href="/A074452/b074452.txt">Table of n, a(n) for n = 1..100</a>

%e phi(84) = 24, a substring of sigma(24) = 224, so 84 is a term of the sequence.

%t r = {}; Do[If[StringPosition[ToString[DivisorSigma[1, i]], ToString[EulerPhi[i]]] != {}, r = Append[r, i]], {i, 1, 10^5}]; r

%t psQ[n_]:=Module[{ep=IntegerDigits[EulerPhi[n]],ds=IntegerDigits[ DivisorSigma[ 1,n]]}, MemberQ[Partition[ds,Length[ep],1],ep]]; Select[Range[80000],psQ] (* _Harvey P. Dale_, Dec 15 2014 *)

%K base,nonn

%O 1,2

%A _Joseph L. Pe_, Sep 25 2002