A128938 Numbers n such that n(n+1) plus the n-th prime is a prime.

3, 5, 7, 9, 10, 11, 12, 13, 20, 27, 28, 32, 33, 35, 36, 41, 42, 43, 45, 47, 49, 54, 63, 65, 74, 75, 84, 91, 94, 95, 98, 104, 105, 107, 109, 113, 114, 117, 122, 124, 126, 128, 129, 135, 140, 149, 152, 155, 160, 164, 168, 171, 189, 190, 192, 199, 203, 209, 212, 214, 216

Offset

1,1

Links

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

Example

Given that 23 is the 9th prime, take 9*10 + 23 = 113, a prime.

Maple

a:=proc(n) if isprime(n*(n+1)+ithprime(n))=true then n else fi end: seq(a(n), n=1..270); # Emeric Deutsch, May 05 2007

Mathematica

Select[Range[300], PrimeQ[#(#+1)+Prime[#]]&] (* Harvey P. Dale, Mar 18 2018 *)

Prog

(PARI) isok(n) = isprime(prime(n)+n+n^2); \\ Michel Marcus, Mar 13 2016

Crossrefs

Cf. A267421.

Sequence in context: A344449 A258432 A344000 * A215138 A367539 A093373

Adjacent sequences: A128935 A128936 A128937 * A128939 A128940 A128941

Keyword

nonn,less

Author

J. M. Bergot, Apr 27 2007

Extensions

Corrected and extended by Emeric Deutsch, May 05 2007

Status

approved