|
| |
|
|
A078956
|
|
Primes p such that the differences between the 5 consecutive primes starting with p are (4,6,6,2).
|
|
2
|
|
|
|
43, 163, 643, 1213, 2953, 4003, 7573, 11923, 14533, 25453, 26683, 26713, 29863, 41593, 48523, 61543, 68473, 150193, 151153, 172423, 206803, 227593, 290023, 302563, 338563, 343813, 346543, 428023, 527053, 529033, 540373, 547483, 551713
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Equivalently, p, p+4, p+10, p+16 and p+18 are consecutive primes.
|
|
|
LINKS
|
|
|
|
EXAMPLE
|
43 is in the sequence since 43, 47, 53, 59 and 61 are consecutive primes.
|
|
|
MAPLE
|
L:= [0$5]:
p:= 1: R:= NULL: count:= 0:
while count < 100 do
p:= nextprime(p);
L:= [L[2], L[3], L[4], L[5], p];
if L -~ L[1] = [0, 4, 10, 16, 18] then
count:= count+1;
R:= R, L[1];
fi
od:
|
|
|
MATHEMATICA
|
Select[Partition[Prime[Range[50000]], 5, 1], Differences[#]=={4, 6, 6, 2}&][[All, 1]] (* Harvey P. Dale, Jan 23 2021 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
|
|
|
STATUS
|
approved
|
| |
|
|
