|
|
A257125
|
|
Initial members of prime 9-tuplets (or nonuplets).
|
|
28
|
|
|
7, 11, 13, 17, 1277, 88789, 113143, 113147, 855709, 74266249, 182403491, 226449521, 252277007, 408936947, 521481197, 626927443, 910935911, 964669609, 1042090781, 1116452627, 1209950867, 1422475909, 1459270271, 1645175087, 2117861719, 2335215973, 2558211559, 2843348351, 2873599429, 2966003057, 3447123283, 3947480417
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes prime(m) such that prime(m+8) = prime(m) + 30. - Zak Seidov, Jul 06 2015
|
|
LINKS
|
|
|
MATHEMATICA
|
{p, q, r, s, t, u, v, w, x} = Prime@ Range@ 9; lst = {}; While[p < 1000000001, If[p + 30 == x, AppendTo[lst, p]; Print@ p]; {p, q, r, s, t, u, v, w, x} = {q, r, s, t, u, v, w, x, NextPrime@ x}]; lst (* Robert G. Wilson v, Jul 06 2015 *)
Select[Partition[Prime[Range[5 10^6]], 9, 1], #[[1]]+30==#[[9]]&][[;; , 1]] (* The program generates the first 10 terms of the sequence. To generate more, increase the Range constant. *) (* Harvey P. Dale, Jul 01 2024 *)
|
|
PROG
|
(PARI) main(size)=v=vector(size); i=0; m=1; while(i<size, if(prime(m)+30===prime(m+8), v[i++]=prime(m)); m++; ); v \\ Anders Hellström, Jul 08 2015
(Magma) [NthPrime(n): n in [0..2*10^4] | NthPrime(n+8) eq (NthPrime(n) + 30)]; // Vincenzo Librandi, Jul 08 2015
|
|
CROSSREFS
|
Initial members of all of the first prime k-tuplets:
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|