The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A086912 a(n) = prime(a(n-1)) + abs(prime(n)-a(n-1)). 0
 1, 4, 8, 20, 80, 476, 3832, 39886, 518314, 8177364, 153154356, 3343378690, 83803337868, 2381994458224 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS MATHEMATICA digits=10 P[n_Integer?Positive] := P[n] =Prime[P[n-1]]+Abs[Prime[n]-P[n-1]] P[1] = 1 a1=Table[Floor[P[n]], {n, 1, digits}] nxt[{n_, a_}]:={n+1, Prime[a]+Abs[Prime[n+1]-a]}; Transpose[NestList[nxt, {1, 1}, 13]][[2]] (* Harvey P. Dale, Sep 29 2015 *) CROSSREFS Cf. A004001. Sequence in context: A009333 A187010 A240149 * A168451 A000585 A209451 Adjacent sequences:  A086909 A086910 A086911 * A086913 A086914 A086915 KEYWORD nonn AUTHOR Roger L. Bagula, Sep 24 2003 EXTENSIONS More terms from Harvey P. Dale, Sep 29 2015 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 23 20:39 EST 2021. Contains 340386 sequences. (Running on oeis4.)