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 A245540 #16 Oct 01 2018 08:19:51 %S A245540 1,2,5,6,14,17,31,32,40,48,72,75,99,113,165,166,174,182,206,214,278, %T A245540 302,414,417,441,465,537,551,663,715,931,932,940,948,972,980,1044, %U A245540 1068,1180,1188,1252,1316,1508,1532,1724,1836,2252,2255,2279,2303,2375,2399,2591,2663,2999,3013,3125,3237 %N A245540 Partial sums of A245180. %H A245540 Altug Alkan, <a href="/A245540/b245540.txt">Table of n, a(n) for n = 1..16383</a> %H A245540 <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a> %F A245540 a(n) = (A245542(n) - 1)/8. - _Omar E. Pol_, Mar 07 2015 %t A245540 b[n_] := b[n] = Which[n == 1, 1, Mod[n, 2] == 0, b[n/2], Mod[n, 4] == 3, 2b[(n-1)/2] + b[n-2], True, 8b[(n-1)/4]]; %t A245540 Accumulate[Array[b, 58]] (* _Jean-François Alcover_, Oct 01 2018 *) %Y A245540 Cf. A245180, A160239, A245542. %K A245540 nonn,look %O A245540 1,2 %A A245540 _N. J. A. Sloane_, Jul 26 2014