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 A004632 #16 Sep 08 2022 08:44:33 %S A004632 1,1000,11011,1000000,1111101,11011000,101010111,1000000000, %T A004632 1011011001,1111101000,10100110011,11011000000,100010010101, %U A004632 101010111000,110100101111,1000000000000,1001100110001,1011011001000,1101011001011,1111101000000,10010000101101 %N A004632 Cubes written in base 2. %H A004632 Robert Israel, <a href="/A004632/b004632.txt">Table of n, a(n) for n = 1..10000</a> %F A004632 a(n) = A007088(n^3) = A007088(A000578(n)). - _Vincenzo Librandi_, Oct 16 2015 %p A004632 A007088:= proc(n) local L; L:= convert(n,base,2); %p A004632 add(L[i]*10^(i-1),i=1..nops(L)) %p A004632 end proc: %p A004632 seq(A007088(n^3),n=1..100); # _Robert Israel_, Oct 16 2015 %t A004632 Table[FromDigits[IntegerDigits[n^3, 2]], {n, 30}] (* _Vincenzo Librandi_, Oct 15 2015 *) %o A004632 (Magma) [Seqint(Intseq(n^3, 2)): n in [1..30]]; // _Vincenzo Librandi_, Oct 16 2015 %o A004632 (PARI) for(n=1,20, print1(fromdigits(digits(n^3, 2)), ", ")) \\ _G. C. Greubel_, Sep 10 2018 %Y A004632 Cf. A000578, A007088. %K A004632 nonn,base %O A004632 1,2 %A A004632 _N. J. A. Sloane_ %E A004632 Changed offset and more terms from _Vincenzo Librandi_, Oct 16 2015