A078561 p, p+4 and p+10 are consecutive primes.

19, 43, 79, 127, 163, 229, 349, 379, 439, 499, 643, 673, 937, 967, 1009, 1093, 1213, 1279, 1429, 1489, 1549, 1597, 1609, 2203, 2347, 2389, 2437, 2539, 2689, 2833, 2953, 3079, 3319, 3529, 3613, 3793, 3907, 3919, 4003, 4129, 4447, 4639, 4789, 4933, 4999

Offset: 1

Author

Labos Elemer, Dec 10 2002

Keywords

• nonn

Comments

Subsequence of A029710. - R. J. Mathar, May 06 2017

Examples

			Between p and p+10 [46] difference-pattern: 19(4)23(6)29;
		

Links

• R. J. Mathar, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. analogous inter-prime d-patterns with d<=6: A022004[24], A022005[42], A049437[26], A049438[62], A078561[46], A078562[64], A047948[66].

Programs

Mathematica

Select[Prime@ Range[10^3], Differences@ NestList[NextPrime, #, 2] == {4, 6} &] (* Michael De Vlieger, May 06 2017 *)
Select[Partition[Prime[Range[700]],3,1],Differences[#]=={4,6}&][[All,1]] (* Harvey P. Dale, Mar 24 2018 *)

PARI

isok(p) = isprime(p) && (nextprime(p+1) == p+4) && (nextprime(p+5) == p+10); \\ Michel Marcus, Dec 20 2013

PARI

is(n)=isprime(n) && isprime(n+4) && isprime(n+10) && !isprime(n+6) && n>3 \\ Charles R Greathouse IV, Dec 20 2013