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 A102652 #29 Mar 12 2024 12:57:53
%S A102652 4,12,24,48,100,204,408,816,1636,3276,6552,13104,26212,52428,104856,
%T A102652 209712,419428,838860,1677720,3355440,6710884,13421772,26843544,
%U A102652 53687088,107374180,214748364,429496728,858993456,1717986916,3435973836
%N A102652 a(n) = 4 * floor(24*2^n/15) = 4*A077854(n).
%C A102652 In binary, each term differs from the previous by a single bit.
%H A102652 Vincenzo Librandi, <a href="/A102652/b102652.txt">Table of n, a(n) for n = 0..1000</a>
%H A102652 <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (3,-3,3,-2).
%F A102652 G.f.: 4 / ( (x-1)*(2*x-1)*(x^2+1) ). - _R. J. Mathar_, Feb 20 2011
%p A102652 A102652:=n->4 * floor(24*2^n/15); seq(A102652(n), n=0..30); # _Wesley Ivan Hurt_, Feb 25 2014
%t A102652 Table[4*Floor[24*2^n/15],{n,0,30}] (* or *) LinearRecurrence[{3,-3,3,-2},{4,12,24,48},30] (* _Harvey P. Dale_, Oct 20 2013 *)
%t A102652 CoefficientList[Series[4/((x - 1) (2 x - 1) (x^2 + 1)), {x, 0, 50}], x] (* _Vincenzo Librandi_, Feb 28 2014 *)
%o A102652 (PARI) a(n)=24<<n\15*4 \\ _Charles R Greathouse IV_, Feb 04 2016
%Y A102652 Cf. A102650, A102651, A102653.
%K A102652 easy,nonn,less
%O A102652 0,1
%A A102652 _Odimar Fabeny_, Feb 02 2005
%E A102652 Edited by _Don Reble_, Mar 28 2006