A087869 a[n] =Abs[Abs[Prime[n]-a[n-1]]+Abs[Prime[n]-a[n-2]]+Abs[Prime[n]-a[n-3]]-Abs[Prime[n]-a[n-4]]-Abs[Prime[n]-a[n-5]]]

1, 1, 1, 1, 10, 3, 5, 3, 23, 11, 2, 9, 45, 25, 19, 25, 44, 43, 1, 27, 71, 67, 38, 59, 31, 111, 23, 47, 22, 163, 101, 21, 27, 127, 210, 27, 53, 121, 217, 33, 36, 141, 267, 99, 101, 45, 262, 171, 19, 11, 281, 399, 136, 179, 71, 249, 45, 221, 12, 323, 101, 183, 35, 303, 196

Offset

1,5

Links

Table of n, a(n) for n=1..65.

Mathematica

digits=200 P[n_Integer?Positive] := P[n] =Abs[ Abs[Prime[n]-P[n-1]]+Abs[Prime[n]-P[n-2]]+Abs[Prime[n]-P[n-3]]- Abs[Prime[n]-P[n-4]]-Abs[Prime[n]-P[n-5]]] P[0]=P[1] =P[2]=P[3]=P[4]=1 a1=Table[Floor[P[n]], {n, 1, digits}]

Crossrefs

Sequence in context: A280519 A010172 A224365 * A167764 A241887 A182493

Adjacent sequences: A087866 A087867 A087868 * A087870 A087871 A087872

Keyword

nonn

Author

Roger L. Bagula, Oct 10 2003

Status

approved