A106046 - OEIS

A106046

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

%I #4 Jun 19 2018 14:39:50

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

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

%C Next term is too large to include

%t NestList[Prime[Prime[#]-#]&,5,6] (* _Harvey P. Dale_, Jun 19 2018 *)

%K nonn

%O 1,1

%A _Zak Seidov_, May 06 2005