A087869 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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: A010172 A370632 A224365 * A167764 A241887 A182493

Adjacent sequences: A087866 A087867 A087868 * A087870 A087871 A087872

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Oct 10 2003

STATUS

approved