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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 10 2003
STATUS
approved