%I A086911
%S A086911 1,1,8,7,7,12,15,11,20,27,15,32,35,19,40,47,31,44,59,39,48,71,47,60,87,
%T A086911 55,64,95,59,72,123,67,84,127,87,88,139,99,96,151,111,100,171,115,108,
%U A086911 175,139,132,183,143,140,195,147,160,207,159,172,211,171,180,215,191
%N A086911 a[n] = Abs[Prime[n]-a[n-1]]+Abs[Prime[n]-a[n-2]]
%C A086911 A batrachian sequence of the Hofstadter type based on the primes. This 
               sequence shows a trifucating structure when graphed.
%t A086911 digits=200 P[n_Integer?Positive] := P[n] =Abs[Prime[n]-P[n-1]]+Abs[Prime[n]-P[n-2]] 
               P[1] =P[2]=1 a1=Table[Floor[P[n]], {n, 1, digits}]
%Y A086911 Cf. A005185.
%Y A086911 Sequence in context: A115373 A021118 A010529 this_sequence A103984 A037077 
               A094106
%Y A086911 Adjacent sequences: A086908 A086909 A086910 this_sequence A086912 A086913 
               A086914
%K A086911 nonn
%O A086911 1,3
%A A086911 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 24 2003