A004632 Cubes written in base 2.

1, 1000, 11011, 1000000, 1111101, 11011000, 101010111, 1000000000, 1011011001, 1111101000, 10100110011, 11011000000, 100010010101, 101010111000, 110100101111, 1000000000000, 1001100110001, 1011011001000, 1101011001011, 1111101000000, 10010000101101

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Formula

a(n) = A007088(n^3) = A007088(A000578(n)). - Vincenzo Librandi, Oct 16 2015

Maple

A007088:= proc(n) local L; L:= convert(n, base, 2);
add(L[i]*10^(i-1), i=1..nops(L))
end proc:
seq(A007088(n^3), n=1..100); # Robert Israel, Oct 16 2015

Mathematica

Table[FromDigits[IntegerDigits[n^3, 2]], {n, 30}] (* Vincenzo Librandi, Oct 15 2015 *)

Prog

(Magma) [Seqint(Intseq(n^3, 2)): n in [1..30]]; // Vincenzo Librandi, Oct 16 2015
(PARI) for(n=1, 20, print1(fromdigits(digits(n^3, 2)), ", ")) \\ G. C. Greubel, Sep 10 2018

Crossrefs

Cf. A000578, A007088.

Sequence in context: A326639 A017643 A161770 * A277397 A250449 A117690

Adjacent sequences: A004629 A004630 A004631 * A004633 A004634 A004635

Keyword

nonn,base

Author

N. J. A. Sloane

Extensions

Changed offset and more terms from Vincenzo Librandi, Oct 16 2015

Status

approved