|
%I #4 Mar 30 2012 17:34:13
%S 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,
%T 23,47,22,163,101,21,27,127,210,27,53,121,217,33,36,141,267,99,101,45,
%U 262,171,19,11,281,399,136,179,71,249,45,221,12,323,101,183,35,303,196
%N 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]]]
%t 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}]
%K nonn
%O 1,5
%A _Roger L. Bagula_, Oct 10 2003
|
