login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #4 Aug 01 2020 12:12:24

%S 1,5,53,1931,207869,51294911,24248219519,19450040191157,

%T 24316888409626507

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

%C Next term is too large to include

%t NestList[Prime[Prime[#]+#]&,1,8] (* _Harvey P. Dale_, Aug 01 2020 *)

%K nonn

%O 1,2

%A _Zak Seidov_, May 06 2005

%E More terms from _Harvey P. Dale_, Aug 01 2020