%I A087657
%S A087657 1,1,12,17,17,9,8,23,29,27,14,41,41,33,26,59,59,39,44,71,65,57,56,89,89,
%T A087657 69,62,101,95,81,104,113,113,87,134,119,131,105,146,137,149,111,176,143,
%U A087657 161,117,212,179,173,123,224,197,179,153,242,215,197,159,260,227,203
%N A087657 a(n) = abs(prime(n)-a(n-1)) + abs(prime(n)-a(n-2)) + abs(prime(n)-a(n-3))
%t A087657 digits=200 P[n_Integer?Positive] := P[n] =Abs[Prime[n]-P[n-1]]+Abs[Prime[n]-P[n-2]]+Abs[Prime[n]-P[n-3]] 
               P[0]=P[1] =P[2]=1 a1=Table[Floor[P[n]], {n, 1, digits}]
%Y A087657 Cf. A004001.
%Y A087657 Sequence in context: A050555 A060669 A166644 this_sequence A059390 A064825 
               A162918
%Y A087657 Adjacent sequences: A087654 A087655 A087656 this_sequence A087658 A087659 
               A087660
%K A087657 nonn
%O A087657 1,3
%A A087657 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 26 2003