A094107 Primes which can be written as prime(prime(k))-6 for some k>1.

5, 11, 53, 61, 103, 151, 173, 271, 277, 347, 503, 541, 557, 593, 733, 853, 1291, 1427, 1493, 1663, 1907, 2411, 2543, 2677, 2713, 2797, 2903, 3061, 3163, 3253, 3313, 3463, 3511, 3631, 3727, 4021, 4127, 4211, 4391, 4457, 4561, 4657, 4871, 4937, 5101, 5743

Offset

1,1

Links

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

Example

Prime(17) = 59, 59 - 6 = 53 is a prime, thus 53 is in the sequence.

Mathematica

Select[Prime[Prime[Range[2, 134]]] - 6, PrimeQ[#] &]  (* Giovanni Resta, Oct 20 2012 *)

Prog

(PARI) a(n) = { forprime(x=2, n, y=prime(x)- 6; if(isprime(y), print1(y", ")) ) }

Crossrefs

Sequence in context: A249075 A089004 A197958 * A107009 A228865 A149527

Adjacent sequences: A094104 A094105 A094106 * A094108 A094109 A094110

Keyword

nonn

Author

Cino Hilliard, May 31 2004

Status

approved