A004633 Cubes written in base 3.

1, 22, 1000, 2101, 11122, 22000, 110201, 200222, 1000000, 1101001, 1211022, 2101000, 10000101, 10202122, 11122000, 12121201, 20201222, 22000000, 100102001, 101222022, 110201000, 112121101, 121200122, 200222000, 210102201, 220002222, 1000000000, 1010010001

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Formula

a(n) = A007089(n^3) = A007089(A000578(n)). - Michel Marcus, Oct 15 2015

Mathematica

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

Prog

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

Crossrefs

Cf. A000578, A007089.

Sequence in context: A041927 A041924 A160139 * A232277 A223781 A223715

Adjacent sequences: A004630 A004631 A004632 * A004634 A004635 A004636

Keyword

nonn,base

Author

N. J. A. Sloane

Extensions

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

Status

approved