A085416 Take prime[n] and continue adding 1,2,..., A085415(n) until one reaches a prime a(n).

3, 13, 11, 13, 17, 19, 23, 29, 29, 107, 37, 43, 47, 53, 53, 59, 137, 67, 73, 107, 79, 89, 89, 167, 103, 107, 109, 113, 137, 149, 137, 137, 173, 149, 227, 157, 163, 173, 173, 179, 257, 191, 197, 199, 233, 227, 239, 229, 233, 239, 239, 317, 251, 257, 263, 269, 347

Offset

1,1

Comments

Primes resulting in procedure of A085415. See also A085417, A085418.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

a(2)=13 because prime[2]=3 and 3+(1+2+3+4)=3+10=13 is a prime.

Mathematica

Table[SelectFirst[Prime[n]+Accumulate[Range[20]], PrimeQ], {n, 60}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 11 2019 *)

Crossrefs

Cf. A085415, A085417, A085418.

Sequence in context: A136592 A351657 A340441 * A107802 A142351 A272837

Adjacent sequences: A085413 A085414 A085415 * A085417 A085418 A085419

Keyword

easy,nonn

Author

Zak Seidov, Jun 29 2003

Status

approved