|
Search: id:A096474
|
|
|
| A096474 |
|
Difference Prime[q+2] - Prime[q] as q runs through the lesser-twin-primes. |
|
+0
3
|
|
| 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; listen)
|
|
|
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: A155880 A021603 A065480 this_sequence A122762 A046605 A095899
Adjacent sequences: A096471 A096472 A096473 this_sequence A096475 A096476 A096477
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 23 2004
|
|
|
Search completed in 0.002 seconds
|
