%I A087658
%S A087658 1,17,41,59,89,113,459,51015,51051,51255,54147,54519,54573,54693,57465,
%T A087658 57519,58011,60933
%N A087658 Repeated terms in A087657 (a(n) = |prime(n)-a(n-1)| + |prime(n)-a(n-2)| 
               + |prime(n)-a(n-3)| ).
%C A087658 60933 is the 7961st & 7962rd term, although I have tested this sequence 
               out to the 3553000th term using Do[ a[n + 1]; If[ a[n] == a[n + 1], 
               Print[ a[n]]]; a[n - 3] =., {n, 2, 3553000}] and have found no more 
               terms. - Robert G. Wilson v.
%C A087658 a(999999) = 11623184, a(10^6) = 11598589, a(1000001) = 11595285.
%t A087658 a[0] = a[1] = a[2] = 1; a[n_] := a[n] = Abs[ Prime[n] - a[n - 1]] + Abs[ 
               Prime[n] - a[n - 2]] + Abs[ Prime[n] - a[n - 3]]; b = Table[ a[n], 
               {n, 1, 10^4}]; b[[ Select[ Range[10^4], b[[ # ]] - b[[ # - 1]] == 
               0 & ]]]
%Y A087658 Cf. A004001, A087657.
%Y A087658 Sequence in context: A078553 A104043 A076330 this_sequence A078655 A052279 
               A147215
%Y A087658 Adjacent sequences: A087655 A087656 A087657 this_sequence A087659 A087660 
               A087661
%K A087658 nonn
%O A087658 1,2
%A A087658 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 26 2003
%E A087658 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com) and Ray 
               Chandler (rayjchandler(AT)sbcglobal.net), Sept 26 2003