%I #19 May 15 2016 16:33:40
%S 1,2,3,5,9,15,21,35,39,45,75,99,135,231,255,363,483,765,855,1295,1599,
%T 2015,2115,4335,6783,9999,14399,16095,16599,18495,30495,53823,62799,
%U 63455,65535,77615,155319,186999,196095,327675,589815,686735,722015
%N Numbers n such that phi(n)+phi(n+1)=n+1.
%H Giovanni Resta, <a href="/A067798/b067798.txt">Table of n, a(n) for n = 1..76</a>
%F {n: A000010(n) = A051953(n+1)}. - _Omar E. Pol_, May 15 2016
%t Select[Range[10^5], Plus @@ EulerPhi[{#, # + 1}] == # + 1 &] (* _Giovanni Resta_, May 15 2016 *)
%o (PARI) isok(n) = eulerphi(n)+eulerphi(n+1) == n+1; \\ _Michel Marcus_, May 15 2016
%Y Cf. A000010, A051953, A067796.
%K nonn
%O 1,2
%A _Benoit Cloitre_, Feb 07 2002
%E More terms from _Dean Hickerson_, Feb 16 2002
|