A141484 - OEIS

A141484

Numbers k such that prime(k)^2 + k! is prime.

1, 2, 3, 4, 5, 13, 14, 18, 32, 48, 49, 275, 1423, 1750, 4896

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

MATHEMATICA

lst={}; Do[p=Prime[n]; If[PrimeQ[p^2+n! ], AppendTo[lst, n]], {n, 3*10^2}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 08 2008 *)

Select[Range[280], PrimeQ[Prime[#]^2+#!]&] (* Harvey P. Dale, Apr 24 2018 *)

PROG

(PARI) j=[]; for(n=1, 300, if(isprime(prime(n)^2+n!), j=concat(j, n))); j

CROSSREFS

KEYWORD

nonn,more

AUTHOR

EXTENSIONS

Offset changed to 1 by and a(13)-a(14) from Jinyuan Wang, Apr 10 2020

a(15) from Michael S. Branicky, Apr 25 2023

STATUS

approved