A067976 Primes of the form 1 + k^phi(k).

2, 3, 17, 37, 2708192040014184559945134363758220403329915059847434832829218817

Offset: 1

Author

Labos Elemer, Feb 06 2002

Keywords

• more
• nonn

Comments

The next term, if it exists, has k > 3000. - Sean A. Irvine, Jan 16 2024

Crossrefs

Cf. A066719, A000010.

Programs

Mathematica

Do[s=1+n^(EulerPhi[n]); If[PrimeQ[s], Print[s]], {n, 1, 1000}]
Select[Table[1+n^EulerPhi[n],{n,100}],PrimeQ] (* Harvey P. Dale, Jul 08 2017 *)

Extensions

Corrected by Hauke Worpel (hw1(AT)email.com), May 29 2003