|
%I #21 Sep 08 2022 08:44:33
%S 1,12,43,144,325,1000,1331,2212,3213,4344,10055,12000,14101,20412,
%T 23343,30544,34425,43000,51431,101012,110513,121144,132155,144000,
%U 200201,213212,231043,245344,304525,325000,345531,411412,434213,501544,530255,1000000
%N Cubes written in base 6.
%H G. C. Greubel, <a href="/A004636/b004636.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = A007092(n^3) = A007092(A000578(n)). - _Michel Marcus_, Oct 15 2015
%t Table[FromDigits[IntegerDigits[n^3, 6]], {n, 40}] (* _Vincenzo Librandi_, Oct 15 2015 *)
%o (Magma) [Seqint(Intseq(n^3, 6)): n in [1..30]]; // _Vincenzo Librandi_, Oct 15 2015
%o (PARI) for(n=1,30, print1(fromdigits(digits(n^3, 6)), ", ")) \\ _G. C. Greubel_, Sep 10 2018
%Y Cf. A000578, A007092.
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_
%E Changed offset and more terms from _Vincenzo Librandi_, Oct 15 2015
|
