|
| |
|
|
A086140
|
|
Primes p such that three (the maximum number) primes occur between p and p+12.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A104387 A133761 A057659
Adjacent sequences: A086137 A086138 A086139 * A086141 A086142 A086143
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jul 29 2003
|
| |
|
|
