|
%I #16 Oct 13 2020 12:45:29
%S 1,2,2,3,3,4,3,5,3,6,4,4,5,4,6,5,5,6,6,7,4,7,5,7,6,8,4,8,5,8,6,9,5,9,
%T 6,10,5,10,6,11,5,11,6,12,6,13,6,14,7,7,8,7,9,7,10,7,11,7,12,7,13,7,
%U 14,8,8,9,8,10,8,11,8,12
%N Nested square root sqrt(b(n) + sqrt(b(n-1) + ... + sqrt(b(1))...)), where b(n) = A323635(n).
%H Ivan Neretin, <a href="/A323636/b323636.txt">Table of n, a(n) for n = 1..10000</a>
%o (PARI) listsq(nn) = {my(va = vector(nn), lastsq, vs = vector(nn)); va[1] = 1; lastsq = 1; vs[1] = lastsq; for (n=2, nn, my(k = ceil(sqrt(sqrtint(lastsq)))); while (#select(x->(x==(k^2-sqrtint(lastsq))), va), k++); va[n] = k^2-sqrtint(lastsq); lastsq = k^2; vs[n] = sqrtint(lastsq);); vs;} \\ _Michel Marcus_, Oct 13 2020
%Y Cf. A323635.
%K nonn,look
%O 1,2
%A _Ivan Neretin_, Jan 21 2019
|
