%I A063710
%S A063710 10,22,38,58,82,182,228,244,308,346,404,446,514,524,644,922,1020,1214,
%T A063710 1484,1522,1538,1582,2104,2408,5600,5924,7596,8420,13352,13378,13738,
%U A063710 14686,15012,20128,21272,27084,27580,29312,37158,43946,47284,47468
%N A063710 Numbers n such that e(n) = s(n), where e(n)=eulerphi(sigma(n)+n) and 
               s(n)=sigma(n-eulerphi(n)).
%H A063710 Harry J. Smith, <a href="b063710.txt">Table of n, a(n) for n=1,...,350</
               a>
%o A063710 (PARI) s(n) = sigma(n-eulerphi(n)); e(n) = eulerphi(sigma(n)+n); j = 
               []; for(n = 1,10^5, if(e(n) == s(n),j = concat(j,n))); j
%o A063710 (PARI) { n=0; for (x=2, 10^9, if (eulerphi(sigma(x) + x) == sigma(x - 
               eulerphi(x)), write("b063710.txt", n++, " ", x); if (n==350, break)) 
               ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 28 2009]
%Y A063710 Sequence in context: A017641 A028569 A014367 this_sequence A157917 A104867 
               A079861
%Y A063710 Adjacent sequences: A063707 A063708 A063709 this_sequence A063711 A063712 
               A063713
%K A063710 easy,nonn
%O A063710 1,1
%A A063710 Jason Earls (zevi_35711(AT)yahoo.com), Aug 23 2001