A004634 - OEIS

%I #22 Sep 08 2022 08:44:33

%S 1,20,123,1000,1331,3120,11113,20000,23121,33220,110303,123000,202111,

%T 222320,310233,1000000,1030301,1123020,1223023,1331000,2100231,

%U 2212120,2332013,3120000,3310021,10102220,10303203,11113000,11331011,12211320

%N Cubes written in base 4.

%H Robert Israel, <a href="/A004634/b004634.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A007090(n^3) = A007090(A000578(n)). - _Robert Israel_, Oct 15 2015

%p f:= proc(n) local t; t:= convert(n^3,base,4); add(t[i]*10^(i-1),i=1..nops(t)) end proc:

%p map(f, [$1..50]); # _Robert Israel_, Oct 14 2015

%t Table[FromDigits[IntegerDigits[n^3, 4]], {n, 30}] (* _Vincenzo Librandi_, Oct 15 2015 *)

%o (Magma) [Seqint(Intseq(n^3, 4)): n in [1..30]]; // _Vincenzo Librandi_, Oct 15 2015

%o (PARI) for(n=1,30, print1(fromdigits(digits(n^3, 4)), ", ")) \\ _G. C. Greubel_, Sep 10 2018

%Y Cf. A000578, A007090, A004633.

%K nonn,base

%O 1,2

%A _N. J. A. Sloane_