login
A106046
For n >= 2, a(n) = prime[prime[a(n-1)] - a(n-1)]; a(1)=5.
0
5, 13, 107, 3413, 328891, 74554429, 32944178077
OFFSET
1,1
COMMENTS
Next term is too large to include
MATHEMATICA
NestList[Prime[Prime[#]-#]&, 5, 6] (* Harvey P. Dale, Jun 19 2018 *)
CROSSREFS
Sequence in context: A180827 A117437 A179089 * A180362 A117527 A228280
KEYWORD
nonn
AUTHOR
Zak Seidov, May 06 2005
STATUS
approved