A076300 Numbers n such that prime(n) + 5*n is prime.

1, 2, 6, 8, 10, 12, 14, 18, 30, 36, 38, 40, 48, 50, 52, 54, 64, 66, 68, 72, 74, 78, 80, 84, 96, 110, 118, 120, 122, 124, 134, 142, 148, 150, 154, 160, 178, 184, 186, 188, 198, 204, 210, 214, 220, 224, 228, 238, 240, 242, 246, 250, 252, 254, 258, 260, 268, 270

Offset

1,2

Links

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

Example

2 is in the sequence because p(2) + 5*2 = 3 + 10 = 13 is prime.

Mathematica

Select[Range[300], PrimeQ[Prime[#]+5#]&] (* Harvey P. Dale, Nov 27 2013 *)

Prog

(Magma) [n: n in [0..500]| IsPrime(NthPrime(n) +5*n)]; // Vincenzo Librandi, Apr 06 2011
(PARI) select(x->isprime(x), vector(500, n, prime(n) + 5*n), 1) \\ Michel Marcus, Jan 15 2015
(PARI) isok(n) = isprime(prime(n) + 5*n); \\ Michel Marcus, May 05 2018

Crossrefs

Cf. A064402 (s=1), A076297 (s=2), A076298 (s=3), A076299 (s=4).

Sequence in context: A327905 A157502 A216032 * A049637 A284753 A258663

Adjacent sequences: A076297 A076298 A076299 * A076301 A076302 A076303

Keyword

nonn

Author

Zak Seidov, Oct 05 2002

Status

approved