OFFSET
1,4
MATHEMATICA
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]]] P[0]=P[1]=P[2]=P[3]=1 digits=200 a1=Table[Floor[P[n]], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 10 2003
STATUS
approved