A064773 Numbers n such that n^n + p(n) is prime.

1, 2, 4, 14, 672

Offset

1,2

Comments

672^672 + prime(672) (1900 digits) certified prime with Primo.

Next term, if it exists, is bigger than 2000. - Stefan Steinerberger, Feb 03 2006

Links

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

Mathematica

For[n=1, n <= 2000, n++, If[PrimeQ[n^n+Prime[n]], Print[n]]] (* Stefan Steinerberger *)
Select[Range[680], PrimeQ[#^#+Prime[#]]&] (* Harvey P. Dale, Oct 09 2018 *)

Crossrefs

Sequence in context: A326941 A132531 A123052 * A359569 A147870 A347790

Adjacent sequences: A064770 A064771 A064772 * A064774 A064775 A064776

Keyword

nonn,more

Author

Jason Earls, Oct 19 2001

Extensions

More terms from Stefan Steinerberger, Feb 03 2006

Status

approved