A067651 Numbers n such that sigma(n) = phi(prime(n)-1).

1, 7, 19, 47, 115, 177, 280, 297, 340, 406, 470, 930, 1240, 1608, 1836, 2232, 2380, 2484, 4326, 8360, 33864, 166152, 216216, 220248, 299250, 394500

Offset

1,2

Comments

No further term below 4*10^6.

No further terms below 10^8. - Julien Kluge, Jul 08 2016

Links

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

Example

sigma(19) = 20, prime(19) = 67, phi(66) = 20, hence 20 is a term.

Mathematica

Select[Range[1, 100000],
DivisorSigma[1, #] == EulerPhi[Prime[#] - 1] &] (* Julien Kluge, Jul 08 2016 *)

Prog

(PARI) m=400000; for(n=1, m, if(sigma(n)==eulerphi(prime(n)-1), print1(n, ", ")))

Crossrefs

Cf. A107815, A107816.

Sequence in context: A146403 A000491 A097039 * A357301 A090025 A348472

Adjacent sequences: A067648 A067649 A067650 * A067652 A067653 A067654

Keyword

nonn,more

Author

Benoit Cloitre, Feb 23 2002

Extensions

More terms from Klaus Brockhaus, Mar 02 2002, revised May 24 2005

Status

approved