Voozh

A068080

Integers n such that n + phi(n) is a prime.

1, 2, 3, 7, 15, 19, 31, 33, 35, 37, 51, 65, 69, 77, 79, 85, 91, 95, 97, 133, 139, 141, 143, 145, 157, 159, 161, 177, 187, 199, 209, 211, 213, 215, 217, 229, 235, 247, 255, 267, 271, 299, 303, 307, 319, 331, 335, 337, 339, 341, 345, 365, 367, 371, 379, 391, 393

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

The subsequence of prime terms is given by A005382. - Michel Marcus, Aug 22 2015

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000

MATHEMATICA

Select[Range[400], PrimeQ[# + EulerPhi[#]] &] (* Carl Najafi, Aug 22 2011 *)

PROG

(PARI) isok(n) = isprime(n+eulerphi(n)); \\ Michel Marcus, Aug 22 2015

(Magma) [n: n in [1..400] |IsPrime(n+EulerPhi(n))]; // Vincenzo Librandi, Dec 19 2015