A087658 Repeated terms in A087657 (a(n) = |prime(n)-a(n-1)| + |prime(n)-a(n-2)| + |prime(n)-a(n-3)| ).

1, 17, 41, 59, 89, 113, 459, 51015, 51051, 51255, 54147, 54519, 54573, 54693, 57465, 57519, 58011, 60933

Offset

1,2

Comments

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

a(999999) = 11623184, a(10^6) = 11598589, a(1000001) = 11595285.

Links

Table of n, a(n) for n=1..18.

Mathematica

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 & ]]]

Crossrefs

Cf. A004001, A087657.

Sequence in context: A078553 A104043 A076330 * A269840 A237659 A350052

Adjacent sequences: A087655 A087656 A087657 * A087659 A087660 A087661

Keyword

nonn

Author

Roger L. Bagula, Sep 26 2003

Extensions

Edited and extended by Robert G. Wilson v and Ray Chandler, Sep 26 2003

Status

approved