|
| |
|
|
A087658
|
|
Repeated terms in A087657 (a(n) = |prime(n)-a(n-1)| + |prime(n)-a(n-2)| + |prime(n)-a(n-3)| ).
|
|
0
| |
|
|
1, 17, 41, 59, 89, 113, 459, 51015, 51051, 51255, 54147, 54519, 54573, 54693, 57465, 57519, 58011, 60933
(list; graph; refs; listen; history; internal format)
|
|
|
|
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.
|
|
|
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 * A078655 A052279 A147215
Adjacent sequences: A087655 A087656 A087657 * A087659 A087660 A087661
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 26 2003
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com) and Ray Chandler (rayjchandler(AT)sbcglobal.net), Sept 26 2003
|
| |
|
|
