|
| |
|
|
A086911
|
|
a[n] = Abs[Prime[n]-a[n-1]]+Abs[Prime[n]-a[n-2]]
|
|
0
| |
|
|
1, 1, 8, 7, 7, 12, 15, 11, 20, 27, 15, 32, 35, 19, 40, 47, 31, 44, 59, 39, 48, 71, 47, 60, 87, 55, 64, 95, 59, 72, 123, 67, 84, 127, 87, 88, 139, 99, 96, 151, 111, 100, 171, 115, 108, 175, 139, 132, 183, 143, 140, 195, 147, 160, 207, 159, 172, 211, 171, 180, 215, 191
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| A batrachian sequence of the Hofstadter type based on the primes. This sequence shows a trifucating structure when graphed.
|
|
|
MATHEMATICA
| digits=200 P[n_Integer?Positive] := P[n] =Abs[Prime[n]-P[n-1]]+Abs[Prime[n]-P[n-2]] P[1] =P[2]=1 a1=Table[Floor[P[n]], {n, 1, digits}]
|
|
|
CROSSREFS
| Cf. A005185.
Sequence in context: A010529 A201505 A177218 * A180311 A103984 A203914
Adjacent sequences: A086908 A086909 A086910 * A086912 A086913 A086914
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 24 2003
|
| |
|
|
