login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A304856
Numbers k such that prime(k)^k - 2 is prime.
1
2, 4, 18, 19, 20, 21, 31, 38, 82, 94, 212
OFFSET
1,1
COMMENTS
a(12) > 20000, if it exists. - Michael S. Branicky, Nov 30 2024
EXAMPLE
2 is in the sequence because prime(2)^2 - 2 = 3^2 - 2 = 7.
MAPLE
N:=10000:
for X from 1 to N do
if isprime(ithprime(X)^X - 2) then print(X);
end if:
end do:
MATHEMATICA
Select[Range[220], PrimeQ[Prime[#]^#-2]&] (* Harvey P. Dale, Apr 03 2019 *)
PROG
(PARI) select( is(n)=ispseudoprime(prime(n)^n-2), [1..222]) \\ M. F. Hasler, May 21 2018
CROSSREFS
Cf. A303371.
Sequence in context: A242528 A137933 A143116 * A115987 A076692 A350629
KEYWORD
nonn,more
AUTHOR
STATUS
approved