|
Search: id:A087658
|
|
|
| A087658 |
|
Repeated terms in A087657 (a(n) = |prime(n)-a(n-1)| + |prime(n)-a(n-2)| + |prime(n)-a(n-3)| ). |
|
+0
1
|
|
| 1, 17, 41, 59, 89, 113, 459, 51015, 51051, 51255, 54147, 54519, 54573, 54693, 57465, 57519, 58011, 60933
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A078655 A052279 A147215
Adjacent sequences: A087655 A087656 A087657 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
