login
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]]]
0
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
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: A010172 A370632 A224365 * A167764 A241887 A182493
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 10 2003
STATUS
approved