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

2, 3, 17, 37, 2708192040014184559945134363758220403329915059847434832829218817

Offset

1,1

Comments

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

Links

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

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 *)

Crossrefs

Cf. A066719, A000010.

Sequence in context: A029733 A153686 A042137 * A154316 A051084 A106860

Adjacent sequences: A067973 A067974 A067975 * A067977 A067978 A067979

Keyword

more,nonn

Author

Labos Elemer, Feb 06 2002

Extensions

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

Status

approved