|
%I #16 Jul 12 2020 13:04:43
%S 1,1,101,1101,1011101,111111101,1011212111101,1112122222111101,
%T 101122323232322111101,1112223344434333322111101,
%U 1011224344546565545343322111101,111223345667777878776655443322111101,1011224455769911213121200887756443322111101
%N a(n) = a(n-1) + 10^n * a(n-2) with a(0) = 1 and a(1) = 1.
%C The Rogers-Ramanujan continued fraction is defined by R(q) = q^(1/5)/(1+q/(1+q^2/(1+q^3/(1+ ... )))). The limit of a(n)/A015468(n+2) is 10^(-1/5) * R(10).
%C a(n) has A004652(n+1) digits. The last n digits are the same as the last n digits of a(n-1). - _Robert Israel_, Jan 12 2017
%H Seiichi Manyama, <a href="/A280340/b280340.txt">Table of n, a(n) for n = 0..62</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Rogers-RamanujanContinuedFraction.html">Rogers-Ramanujan Continued Fraction</a>
%F a(n) a(n-3) = 10 a(n-2) a(n-1) - 10 a(n-2)^2 + a(n-1) a(n-3). - _Robert Israel_, Jan 12 2017
%e 1/1 = a(0)/A015468(2).
%e 1/(1+10/1) = 1/11 = a(1)/A015468(3).
%e 1/(1+10/(1+10^2/1)) = 101/111 = a(2)/A015468(4).
%e 1/(1+10/(1+10^2/(1+10^3/1))) = 1101/11111 = a(3)/A015468(5).
%p A[0]:= 1: A[1]:= 1:
%p for n from 2 to 20 do A[n]:= A[n-1]+10^n*A[n-2] od:
%p seq(A[i],i=0..20); # _Robert Israel_, Jan 12 2017
%t RecurrenceTable[{a[0]==a[1]==1,a[n]==a[n-1]+10^n a[n-2]},a,{n,15}] (* _Harvey P. Dale_, Jul 12 2020 *)
%Y Cf. A004652, A015468, A128915.
%Y Cf. similar sequences with the recurrence a(n-1) + q^n * a(n-2) for n>1, a(0)=1 and a(1)=1: A280294 (q=2), A279543 (q=3), this sequence (q=10).
%K nonn
%O 0,3
%A _Seiichi Manyama_, Dec 31 2016
| 