A076299 Numbers k such that prime(k) + s*k is prime, s=4.

2, 3, 4, 5, 6, 9, 15, 17, 20, 21, 22, 25, 27, 30, 31, 33, 42, 46, 54, 56, 58, 60, 62, 67, 72, 73, 78, 81, 84, 86, 87, 88, 90, 93, 96, 99, 100, 105, 111, 112, 113, 115, 119, 127, 128, 133, 135, 137, 145, 146, 151, 152, 162, 163, 164, 165, 168, 170, 172, 173, 176, 177

Offset: 1

Author

Zak Seidov, Oct 05 2002

Keywords

• nonn

Comments

See also A064402 (s=1), A076297 (s=2), A076298 (s=3), A076300 (s=5).

Examples

			4 is OK because p(4) + 4*4 = 7 + 16 = 23 is prime.
		

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A064402, A076297, A076298, A076300.

Programs

Magma

[n: n in [0..500]| IsPrime(NthPrime(n) +4*n)]; // G. C. Greubel, May 04 2018

Mathematica

Select[Range[500], PrimeQ[Prime[#] + 4 #] &] (* G. C. Greubel, May 04 2018 *)

PARI

select(x->isprime(x), vector(500, n, prime(n) + 4*n), 1) \\ G. C. Greubel, May 04 2018