|
|
A086149
|
|
Primes p with property that p + 32 is also prime and there are seven primes between p and p + 32.
|
|
1
|
|
|
29, 41, 416387, 626597, 6560987, 6937937, 25658429, 25658441, 29597411, 49136357, 51448361, 57405419, 90279461, 128469149, 137943341, 162189089, 165531251, 175182587
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cp[x_, y_] := Count[Table[PrimeQ[i], {i, x, y}], True] Do[s=Prime[n]; s1=Prime[n+1]; If[PrimeQ[s+32]&& Equal[cp[s+1, s+d-1], 7], Print[s]], {n, 1, 1000000}]
Select[Partition[Prime[Range[98*10^5]], 9, 1], Last[#]-First[#]==32&] [[All, 1]] (* Harvey P. Dale, Sep 12 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|