|
Search: id:A113274
|
|
|
| A113274 |
|
Record gaps between twin primes. |
|
+0
4
|
|
| 2, 6, 12, 18, 30, 36, 72, 150, 168, 210, 282, 372, 498, 630, 924, 930, 1008, 1452, 1512, 1530, 1722, 1902, 2190, 2256, 2832, 2868, 3012, 3102, 3180, 3480, 3804, 4770, 5070, 5142, 5550, 5778, 5946, 6192, 6474, 6552
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
a(n) mod 6 = 0 for each n>0.
|
|
EXAMPLE
|
The first twin primes are 3,5 and 5,7 so a(0)=5-3=2. The following pair is 11,13 so a(1)=11-5=6. The following pair is 17,19 so 6 remains the record and no terms are added.
|
|
MATHEMATICA
|
NextLowerTwinPrim[n_] := Block[{k = n + 6}, While[ !PrimeQ[k] || !PrimeQ[k + 2], k+=6]; k]; p = 5; r = 2; t = {2}; Do[ q = NextLowerTwinPrim[p]; If[q > r + p, AppendTo[t, q - p]; Print[{p, q - p}]; r = q - p]; p = q, {n, 10^9}]; t (* Robert G. Wilson v *)
|
|
CROSSREFS
|
The smallest primes originating the sequence are given in A113275. Cf. A005250.
A036063[k] = a[k+2]-2
Sequence in context: A108585 A159793 A006511 this_sequence A036913 A117311 A125024
Adjacent sequences: A113271 A113272 A113273 this_sequence A113275 A113276 A113277
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Bernardo Boncompagni (redgolpe(AT)redgolpe.com), Oct 21 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Oct 22 2005
|
|
|
Search completed in 0.002 seconds
|
