|
%I #10 Nov 29 2013 21:17:35
%S 1,17,41,59,89,113,459,51015,51051,51255,54147,54519,54573,54693,
%T 57465,57519,58011,60933
%N Repeated terms in A087657 (a(n) = |prime(n)-a(n-1)| + |prime(n)-a(n-2)| + |prime(n)-a(n-3)| ).
%C 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 a(999999) = 11623184, a(10^6) = 11598589, a(1000001) = 11595285.
%t 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 Cf. A004001, A087657.
%K nonn
%O 1,2
%A _Roger L. Bagula_, Sep 26 2003
%E Edited and extended by _Robert G. Wilson v_ and _Ray Chandler_, Sep 26 2003
|
