A106046 For n >= 2, a(n) = prime[prime[a(n-1)] - a(n-1)]; a(1)=5.

5, 13, 107, 3413, 328891, 74554429, 32944178077

Offset

1,1

Comments

Next term is too large to include

Links

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

Mathematica

NestList[Prime[Prime[#]-#]&, 5, 6] (* Harvey P. Dale, Jun 19 2018 *)

Crossrefs

Sequence in context: A180827 A117437 A179089 * A180362 A117527 A228280

Adjacent sequences: A106043 A106044 A106045 * A106047 A106048 A106049

Keyword

nonn

Author

Zak Seidov, May 06 2005

Status

approved