|
Search: id:A087776
|
|
|
| A087776 |
|
Primes Prime[n] such that -Prime[n-2]+2*Prime[n-1]-2*Prime[n+1]+Prime[n+2]==0. |
|
+0
1
|
|
| 11, 13, 17, 73, 103, 107, 241, 337, 353, 373, 421, 491, 563, 593, 619, 683, 701, 709, 733, 743, 773, 977, 1051, 1103, 1433, 1487, 1571, 1607, 1789, 1861, 1873, 1993, 2011, 2143, 2287, 2383, 2543, 2677, 2693, 2753, 2803, 2917, 2927, 2953, 3359, 3389, 3407
(list; graph; listen)
|
|
|
OFFSET
|
3,1
|
|
|
COMMENT
|
A finite dual Laplacian sequence of primes.
Prime[n+2]-2*Prime[n+1]+Prime[n]=Prime[n-2]-2*Prime[n-1]+Prime[n]. A finite Laplacian at two points set equal (n+1) and (n-1) over the primes. Almost but not quite equivalent to a finite third derivative.
|
|
MATHEMATICA
|
digits=3000 e=Table[If[ -Prime[n-2]+2*Prime[n-1]-2*Prime[n+1]+Prime[n+2]==0, Prime[n], 0], {n, 3, digits}]; f=Delete[Union[e], 1]
|
|
CROSSREFS
|
Cf. A087774, A087775.
Sequence in context: A104070 A019371 A068335 this_sequence A098031 A098423 A088561
Adjacent sequences: A087773 A087774 A087775 this_sequence A087777 A087778 A087779
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 04 2003
|
|
|
Search completed in 0.002 seconds
|
