This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A333588 #30 May 24 2020 15:02:51 %S A333588 -2,3,-5,7,-11,16,-24,36,-54,81,-122,183,-275,412,-618,927,-1391,2086, %T A333588 -3129,4693,-7040,10560,-15840,23760,-35640,53460,-80190,120285, %U A333588 -180428,270642,-405963,608944,-913416,1370124,-2055186,3082779,-4624169,6936253,-10404380,15606570,-23409855,35114782 %N A333588 a(n) = floor(-(3/2)*a(n-1)), a(1)=-2. %e A333588 floor(-(3/2) * -2) = 3; %e A333588 floor(-(3/2) * 3) = -5; %e A333588 floor(-(3/2) * -5) = 7; %e A333588 floor(-(3/2) * 7) = -11; %e A333588 floor(-(3/2) * -11) = 16; %e A333588 floor(-(3/2) * 16) = -24. %t A333588 Nest[Append[#1, Floor[-3 #1[[-1]]/2]] & @@ {#, Mod[Length@ #, 2]} &, {-2}, 44] (* _Michael De Vlieger_, Mar 27 2020 *) %t A333588 NestList[Floor[-3/2 #] &, -2, 50] (* _Alonso del Arte_, Mar 29 2020 *) %o A333588 (Ruby) values = [-2]; 100.times { values << (values.last * -3/2) }; p values %Y A333588 Cf. A061419. %K A333588 sign %O A333588 1,1 %A A333588 _Simon Strandgaard_, Mar 27 2020