A116045 n+phi(n)+phi(phi(n)) is a prime.

1, 4, 5, 9, 13, 17, 19, 21, 25, 33, 35, 39, 41, 43, 49, 61, 75, 79, 85, 87, 95, 101, 121, 133, 137, 141, 153, 155, 159, 163, 165, 169, 177, 181, 193, 199, 201, 203, 207, 213, 215, 231, 233, 245, 251, 257, 259, 265, 267, 271, 277, 291, 299, 307, 309, 337, 339

Offset: 1

Author

Giovanni Resta, Feb 13 2006

Keywords

• nonn

Examples

			13+phi(13)+phi(phi(13)) = 29.
		

Crossrefs

Cf. A068080.

Programs

Mathematica

epQ[n_]:=Module[{ep=EulerPhi[n]},PrimeQ[n+ep+EulerPhi[ep]]]
Select[Range[400],epQ]  (* Harvey P. Dale, Mar 06 2011 *)