A104911 Numbers n such that n+prime(n) is the square of a prime.

12, 86, 230, 1170, 2660, 2772, 6572, 8858, 9590, 16332, 17708, 54540, 63890, 64908, 82830, 98132, 104726, 119298, 136502, 152198, 177918, 187040, 234650, 241682, 253118, 263930, 278970, 376680, 412440, 456110, 469034, 471642, 490650, 524888

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..100

Mathematica

Select[Range[525000], PrimeQ[Sqrt[#+Prime[#]]]&] (* Harvey P. Dale, Jan 28 2020 *)

Prog

(PARI) isok(n) = s = n+prime(n); issquare(s) && isprime(sqrtint(s)); \\ Michel Marcus, Oct 05 2013

Crossrefs

Sequence in context: A118017 A225785 A098206 * A283119 A091119 A243248

Adjacent sequences: A104908 A104909 A104910 * A104912 A104913 A104914

Keyword

nonn

Author

Zak Seidov, Apr 25 2005

Extensions

a(12)-a(34) from Donovan Johnson, Jul 02 2010

Status

approved