A068402 Numbers n such that sigma(n+1)=n+phi(n).

4, 6, 32, 38, 54, 56, 84, 278, 2664, 10944, 15608, 20720, 84800, 179576, 209664, 6251904, 85505600, 125226624, 584003328, 19018936320, 20534891040, 79185129984, 87065548800, 191904215040, 964494300024

Offset

1,1

Comments

Are there any odd values in the sequence?

a(26) > 10^12. - Donovan Johnson, Feb 29 2012

Links

Table of n, a(n) for n=1..25.

Mathematica

Select[Range[10^5], DivisorSigma[1, # + 1] == # + EulerPhi[#] &] (* Alonso del Arte, Feb 29 2012 *)

Prog

(PARI) : for(n=1, 500000, if(sigma(n+1)-n==eulerphi(n), print1(n, ", ")))

Crossrefs

Sequence in context: A088255 A192083 A068720 * A078250 A239224 A087299

Adjacent sequences: A068399 A068400 A068401 * A068403 A068404 A068405

Keyword

easy,nonn

Author

Benoit Cloitre, Mar 02 2002

Extensions

One more term from Rick L. Shepherd, Jun 21 2002

a(17)-a(25) from Donovan Johnson, Feb 29 2012

Status

approved