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

Offset

1,2

Links

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

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

Sequence in context: A101546 A026471 A039039 * A175303 A057158 A138986

Adjacent sequences: A141481 A141482 A141483 * A141485 A141486 A141487

Keyword

nonn,more

Author

Alexander R. Povolotsky, Aug 09 2008

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