A180302 Sequence of primes separated by [sequence of prime] elements. 2, [find 2nd prime after 2 = ] 5, [find 3rd prime after 5 =] 13, [find 5th prime after 13 =] 61, ..., etc.

2, 5, 13, 31, 61, 109, 181, 277, 397, 547, 733, 947, 1213, 1499, 1831, 2207, 2633, 3083, 3583, 4133, 4751, 5407, 6073, 6793, 7589, 8513, 9397, 10313, 11353, 12409, 13451, 14713, 15889, 17299, 18593, 20129, 21613, 23167, 24851, 26561, 28387, 30203

Offset: 1

Author

Daniel Tisdale, Aug 24 2010

Keywords

• nonn

Comments

Similar to A006450.

Crossrefs

Cf. A006450, A014284.

Programs

Mathematica

NestList[n = 0; (n++; NextPrime[ #, Prime@ n]) &, 2, 41] (* Robert G. Wilson v, Aug 25 2010 *)
Prime[Accumulate[Join[{1}, Prime[Range[45]]]]] (* Alonso del Arte, Oct 09 2012 *)

Extensions

a(8) onwards from Robert G. Wilson v, Aug 25 2010