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,1

Comments

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

Links

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

Example

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

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 *)

Prog

(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

Crossrefs

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

Sequence in context: A155770 A153169 A090797 * A074222 A054820 A165567

Adjacent sequences: A078558 A078559 A078560 * A078562 A078563 A078564

Keyword

nonn

Author

Labos Elemer, Dec 10 2002

Status

approved