|
%I #30 May 24 2020 15:02:51
%S -2,3,-5,7,-11,16,-24,36,-54,81,-122,183,-275,412,-618,927,-1391,2086,
%T -3129,4693,-7040,10560,-15840,23760,-35640,53460,-80190,120285,
%U -180428,270642,-405963,608944,-913416,1370124,-2055186,3082779,-4624169,6936253,-10404380,15606570,-23409855,35114782
%N a(n) = floor(-(3/2)*a(n-1)), a(1)=-2.
%e floor(-(3/2) * -2) = 3;
%e floor(-(3/2) * 3) = -5;
%e floor(-(3/2) * -5) = 7;
%e floor(-(3/2) * 7) = -11;
%e floor(-(3/2) * -11) = 16;
%e floor(-(3/2) * 16) = -24.
%t Nest[Append[#1, Floor[-3 #1[[-1]]/2]] & @@ {#, Mod[Length@ #, 2]} &, {-2}, 44] (* _Michael De Vlieger_, Mar 27 2020 *)
%t NestList[Floor[-3/2 #] &, -2, 50] (* _Alonso del Arte_, Mar 29 2020 *)
%o (Ruby) values = [-2]; 100.times { values << (values.last * -3/2) }; p values
%Y Cf. A061419.
%K sign
%O 1,1
%A _Simon Strandgaard_, Mar 27 2020
|
