A004634 Cubes written in base 4.

1, 20, 123, 1000, 1331, 3120, 11113, 20000, 23121, 33220, 110303, 123000, 202111, 222320, 310233, 1000000, 1030301, 1123020, 1223023, 1331000, 2100231, 2212120, 2332013, 3120000, 3310021, 10102220, 10303203, 11113000, 11331011, 12211320

Offset

1,2

Links

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

Formula

a(n) = A007090(n^3) = A007090(A000578(n)). - Robert Israel, Oct 15 2015

Maple

f:= proc(n) local t; t:= convert(n^3, base, 4); add(t[i]*10^(i-1), i=1..nops(t)) end proc:
map(f, [$1..50]); # Robert Israel, Oct 14 2015

Mathematica

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

Prog

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

Crossrefs

Cf. A000578, A007090, A004633.

Sequence in context: A213223 A041770 A156255 * A222859 A263545 A227057

Adjacent sequences: A004631 A004632 A004633 * A004635 A004636 A004637

Keyword

nonn,base

Author

N. J. A. Sloane

Status

approved