%I A074452
%S A074452 1,6,60,84,112,141,168,252,270,294,450,570,1188,1320,2376,2436,2508,
%T A074452 4584,5016,5406,6426,7110,8850,13566,14270,15834,17416,23320,31152,
%U A074452 34452,58520,62568,72732,75210,79035
%N A074452 Treated as strings, phi(n) is a substring of sigma(n).
%e A074452 phi(84) = 24, a substring of sigma(24) = 224, so 84 is a term of the 
               sequence.
%t A074452 r = {}; Do[If[StringPosition[ToString[DivisorSigma[1, i]], ToString[EulerPhi[i]]] 
               != {}, r = Append[r, i]], {i, 1, 10^5}]; r
%Y A074452 Sequence in context: A136927 A061475 A136937 this_sequence A007358 A007357 
               A002827
%Y A074452 Adjacent sequences: A074449 A074450 A074451 this_sequence A074453 A074454 
               A074455
%K A074452 base,nonn
%O A074452 1,2
%A A074452 Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Sep 25 2002