A100408 Numbers n such that n^n-2 is prime.

2, 7, 19, 21, 25, 49, 51, 1071

Offset

1,1

Comments

Except for the first term all terms are odd.

Numbers n such that n^n+7 is prime gives the (as yet) too-short sequence 2,4,6,32,...

If it exists, a(9) > 25000. - Robert Price, Apr 25 2019

Links

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

Example

51 is in the sequence because 51^51-2 is prime. 1071^1071-2 is a probable prime.

Mathematica

Do[If[PrimeQ[n^n-2], Print[n]], {n, 1111}]
Select[Range[1111], PrimeQ[#^#-2]&] (* Harvey P. Dale, Dec 08 2024 *)

Prog

(PARI) is(n)=ispseudoprime(n^n-2) \\ Charles R Greathouse IV, Feb 20 2017

Crossrefs

Cf. A100407.

Sequence in context: A380000 A337614 A343908 * A259370 A103034 A038952

Adjacent sequences: A100405 A100406 A100407 * A100409 A100410 A100411

Keyword

more,nonn

Author

Farideh Firoozbakht, Nov 19 2004

Status

approved