%I A063700
%S A063700 3,5,11,17,29,41,59,71,101,107,137,147,149,179,191,197,227,239,269,281,
%T A063700 311,347,419,431,461,521,569,596,599,617,641,659,809,821,827,857,881,
%U A063700 1019,1031,1049,1061,1091,1151,1229,1277,1289,1301,1319,1427,1451,1481
%N A063700 Solutions to Sigma[x+d[x]] = Sigma[x]+d[x], where Sigma[] = A000203(), 
               d[] = A000005().
%H A063700 Harry J. Smith, <a href="b063700.txt">Table of n, a(n) for n=1,...,1000</
               a>
%e A063700 Primes and composites among solutions: x = 59, d(59) = 2,Sigma(59) = 
               60,Sigma(59+2) = Sigma(61) = 62 = Sigma(59)+d(59); x = 596, d(596) 
               = 6,Sigma(596) = 1050,Sigma(596+6) = Sigma(602) = 1056 = Sigma(596)+d(596).
%o A063700 (PARI) { n=0; for (x=1, 10^9, if (sigma(x + numdiv(x)) == (sigma(x) + 
               numdiv(x)), write("b063700.txt", n++, " ", x); if (n==1000, break)) 
               ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 28 2009]
%Y A063700 A000005, A000203.
%Y A063700 Sequence in context: A144105 A141262 A069233 this_sequence A078859 A054799 
               A001359
%Y A063700 Adjacent sequences: A063697 A063698 A063699 this_sequence A063701 A063702 
               A063703
%K A063700 nonn
%O A063700 1,1
%A A063700 Labos E. (labos(AT)ana.sote.hu), Aug 23 2001