|
| |
|
|
A096474
|
|
Difference Prime[q+2] - Prime[q] as q runs through the lesser-twin-primes.
|
|
2
| |
|
|
6, 6, 10, 8, 18, 12, 6, 14, 16, 12, 24, 18, 24, 18, 16, 14, 24, 18, 24, 18, 10, 12, 18, 40, 28, 20, 24, 18, 28, 10, 12, 12, 8, 8, 22, 16, 12, 12, 14, 14, 26, 36, 24, 30, 24, 8, 18, 30, 12, 22, 22, 16, 18, 24, 10, 14, 18, 14, 10, 20, 10, 32, 32, 12, 10, 44, 30, 18, 16, 36, 14, 12
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a[n]=prime[A0021359(n+1)]-prime[A001359(n)]
|
|
|
EXAMPLE
| {q, q+2}={17, 19} is the 4th twin-pair and p[19]-p[17]=67-59=8, so a[4]=8.
|
|
|
MATHEMATICA
| {ta=Table[0, {1300}], tb=Table[0, {1300}], tc=Table[0, {1300}], u=1}; Do[s=Prime[n+1]-Prime[n]; If[Equal[s, 2], ta[[u]]=Prime[Prime[n+1]]-Prime[Prime[n]]; tb[[u]]=n; tc[[u]]=Prime[n]; u=u+1], {n, 1, 10000}]; ta
|
|
|
CROSSREFS
| Cf. A001359.
Sequence in context: A200023 A198115 A205372 * A168282 A122762 A046605
Adjacent sequences: A096471 A096472 A096473 * A096475 A096476 A096477
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jun 23 2004
|
| |
|
|
