|
Search: id:A086140
|
|
|
| A086140 |
|
Primes p such that three (the maximum number) primes occur between p and p+12. |
|
+0
1
|
|
| 5, 7, 11, 97, 101, 1481, 1867, 3457, 5647, 15727, 16057, 16061, 19417, 19421, 21011, 22271, 43777, 43781, 55331, 79687, 88807, 101107, 144161, 165701, 166841, 195731, 201821, 225341, 247601, 257857, 266677, 268811, 276037, 284737, 326141, 340927
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
cp[x_, y_] := Count[Table[PrimeQ[i], {i, x, y}], True] {d=12, k=0}; Do[s=Prime[n]; s1=Prime[n+1]; If[PrimeQ[s+d]&&Equal[cp[s+1, s+d-1], 3], k=k+1; Print[s]], {n, 1, 100000}]
|
|
CROSSREFS
|
Cf. A031930, A046133, A086139, A086136.
Sequence in context: A071781 A091509 A027728 this_sequence A104387 A133761 A057659
Adjacent sequences: A086137 A086138 A086139 this_sequence A086141 A086142 A086143
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 29 2003
|
|
|
Search completed in 0.002 seconds
|
