|
%I #9 Nov 07 2018 19:52:15
%S 1,0,0,1,1,3,13,144,6765,3524578,86267571272,1100087778366101931,
%T 343358302784187294870275058337,
%U 1366619256256991435939546543402365995473880912459,1697726516284295515651670644354144400761613511040643009353262085480136081475307
%N a(n) = F(F(n)-1), where F(n) = A000045(n) (the Fibonacci numbers).
%C F(F(n+1)=A007570(n+1), namely, 1,1,2,5,21,233,...
%H Alois P. Heinz, <a href="/A130589/b130589.txt">Table of n, a(n) for n = 0..19</a>
%e a(1)=F(F(1)-1)=F(0)=0;
%e a(2)=F(F(2)-1)=F(0)=0;
%e a(3)=F(F(3)-1)=F(1)=1;
%e a(4)=F(F(4)-1)=F(2)=1;
%e a(5)=F(F(5)-1)=F(4)=3;
%p with(combinat): a:= proc(n) fibonacci(fibonacci(n)-1) end proc: seq(a(n), n = 0 .. 14);
%p # second Maple program:
%p F:= n-> (<<0|1>, <1|1>>^n)[1, 2]:
%p a:= n-> F(F(n)-1):
%p seq(a(n), n=0..14); # _Alois P. Heinz_, Nov 07 2018
%t Fibonacci[Fibonacci[Range[15]]-1] (* _Harvey P. Dale_, Feb 18 2018 *)
%Y Cf. A000045.
%Y Cf. A007570.
%K easy,nonn
%O 0,6
%A Philippe Lallouet (philip.lallouet(AT)wanadoo.fr), Jun 16 2007
%E Edited by _Emeric Deutsch_, Jul 10 2007
%E a(0)=1 prepended by _Alois P. Heinz_, Nov 07 2018
| 