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

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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