Search: id:A137991
Results 1-1 of 1 results found.

%I A137991
%S A137991 3,6,9,7,5,3,7,1,7,1,4,8,0,8,9,0,9,6,5,4,5,2,9,4,7,8,8,9,3,2,9,1,2,0,8,
%T A137991 6,2,0,4,7,6,0,7,3,5,8,0,7,6,3,4,9,4,9,9,5,7,3,5,9,7,2,8,4,6,8,6,5,2,8,
%U A137991 4,0,3,4,5,3,1,9,2,8,6,0,7,7,2,3,9,7,5,1,0,0,3,0,0,7,2,6,8
%N A137991 Decimal expansion of the inverse of the number whose Engel expansion 
               has the sequence of Fibonacci numbers (A000045) as coefficients.
%H A137991 Weisstein, Eric W., <a href="http://mathworld.wolfram.com/PierceExpansion.html">
               Pierce Expansion</a>.
%H A137991 Weisstein, Eric W., <a href="http://mathworld.wolfram.com/EngelExpansion.html">
               Engel Expansion</a>.
%p A137991 with (combinat,fibonacci); P:=proc(n) local a,i,k; a:=0; k:=1; for i 
               from 1 by 1 to n do k:=k*fibonacci(i); a:=a+1/k; print(evalf(1/a,
               100)); od; end: P(100);
%Y A137991 Cf. A000045, A137990.
%Y A137991 Sequence in context: A151862 A067722 A049341 this_sequence A021077 A114041 
               A057083
%Y A137991 Adjacent sequences: A137988 A137989 A137990 this_sequence A137992 A137993 
               A137994
%K A137991 easy,nonn
%O A137991 0,1
%A A137991 Paolo P. Lava & Giorgio Balzarotti (ppl(AT)spl.at), Feb 26 2008

Search completed in 0.001 seconds