A086912 a(n) = prime(a(n-1)) + abs(prime(n)-a(n-1)).

1, 4, 8, 20, 80, 476, 3832, 39886, 518314, 8177364, 153154356, 3343378690, 83803337868, 2381994458224

Offset

1,2

Links

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

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