%I #35 Dec 28 2018 04:20:32
%S 2,4,9,4,6,2,5,1,4,7,5,4,1,0,0,9,2,9,0,1,8,7,2,2,7,1,3,0,0,0,4,0,7,7,
%T 4,5,1,2,6,8,7,7,3,3,6,6,7,0,8,4,1,3,9,6,1,4,7,5,5,9,2,3,0,0,4,4,3,4,
%U 3,3,9,6,4,9,9,1,2,2,0,9,9,2,5,3,2,8,2,9,3,2,1,4,9,6,5,0,9,7,8,9,3,0,1,2,6
%N Infinite nested radical negated: i*sqrt(1+2i*sqrt(1+3i*sqrt(1+4i*sqrt(1+5i*sqrt(1+...))))).
%C Inspired by Ramanujan's infinite nested radical of natural numbers.
%D Ramanujan's 2nd Notebook, Chapter XII, Page 108, entry 4.
%H Robert G. Wilson v, <a href="/A301514/b301514.txt">Table of n, a(n) for n = 1..10001</a>
%e 2.4946251475410092901872271300040774512687733667084139614755923004434339649...
%t RealDigits[Chop[N[-I*Fold[#2*Sqrt[1 + #1*I] &, 0, Reverse[Range[400]]], 125]], 10, 120][[1]] (* _Vaclav Kotesovec_, Dec 22 2018 *)
%o (PARI)
%o b(n) = imag(fold((x,y)->sqrt(1+x*y), Vecrev([2..n+1])*I));
%o N=106; default(realprecision, N); limitnum(b,,4) \\ _Gheorghe Coserea_, Dec 23 2018
%Y Cf. A072449, A239349.
%K cons,nonn
%O 1,1
%A _Robert G. Wilson v_, Dec 15 2018