The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A073415 Denominator of the n-th convergent to Sum_{k>=0} 1/2^(2^k). 3

%I

%S 1,1,5,11,49,207,1291,5371,12033,53503,333051,719605,3211471,19988431,

%T 83165195,352649211,788463617,3506503679,21827485691,47161475061,

%U 210473385935,889055018801,5544803498741,23068269013765,51681341526271

%N Denominator of the n-th convergent to Sum_{k>=0} 1/2^(2^k).

%H Robert Israel, <a href="/A073415/b073415.txt">Table of n, a(n) for n = 1..1650</a>

%F a(n) = a(n-1) A007400(n) + a(n-2). - _Robert Israel_, Jun 14 2016

%p a007400:= proc(n) option remember; local n8, n16;

%p n8:= n mod 8;

%p if n8 = 0 or n8 = 3 then return 2

%p elif n8 = 4 or n8 = 7 then return 4

%p elif n8 = 1 then return procname((n+1)/2)

%p elif n8 = 2 then return procname((n+2)/2)

%p fi;

%p n16:= n mod 16;

%p if n16 = 5 or n16 = 14 then return 4

%p elif n16 = 6 or n16 = 13 then return 6

%p fi

%p end proc:

%p a007400(0):= 0: a007400(1):= 1: a007400(2):= 4:

%p A[1]:= 1: A[2]:= 1:

%p for n from 3 to 100 do

%p A[n]:= A[n-1]*a007400(n-1)+A[n-2];

%p od:

%p seq(A[n], n=1..100); # _Robert Israel_, Jun 14 2016

%o (PARI) a(n)=component(component(contfracpnqn(contfrac(sum(k=0,20,1/2^(2^k)),n)),1),2)

%Y Cf. A007400, A007404, A073414.

%K easy,frac,nonn

%O 1,3

%A _Benoit Cloitre_, Aug 23 2002

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 1 01:43 EDT 2020. Contains 334758 sequences. (Running on oeis4.)