A039689 Numbers k such that phi(k) + 1 is not a prime.

15, 16, 20, 24, 25, 30, 33, 35, 39, 44, 45, 50, 51, 52, 56, 64, 65, 66, 68, 69, 70, 72, 78, 80, 81, 84, 85, 87, 90, 92, 96, 102, 104, 105, 112, 116, 120, 121, 123, 128, 129, 130, 136, 138, 140, 141, 143, 144, 147, 155, 156, 159, 160, 161, 162, 164, 165, 168, 170

Offset

1,1

Links

Antti Karttunen, Table of n, a(n) for n = 1..39340

Example

phi(20)+1 = 8+1 = 9 is not prime.

Mathematica

Select[Range[200], !PrimeQ[EulerPhi[#]+1]&] (* Harvey P. Dale, Aug 31 2018 *)

Prog

(PARI) isok(k) = !isprime(eulerphi(k)+1); \\ Michel Marcus, Jun 28 2021

Crossrefs

Cf. A000010, A007614, A039649, A039698 (complement).

Positions of zeros in A296079.

Cf. also A263029.

Sequence in context: A031168 A108856 A241750 * A332515 A063530 A160661

Adjacent sequences: A039686 A039687 A039688 * A039690 A039691 A039692

Keyword

nonn,easy

Author

Olivier Gérard

Extensions

Name edited by Antti Karttunen, Dec 05 2017

Status

approved