%I #21 Aug 01 2024 23:15:36
%S 1,8,30,71,148,260,421,628,1000,1331,1738,2330,3011,3678,4560,5551,
%T 6658,8000,10361,11868,13630,15541,17618,20860,23381,26088,30000,
%U 33101,36408,41030,44771,48848,54260,58821,64728,71000,76431,83238,100330,106711,114478
%N Cubes written in base 9.
%H G. C. Greubel, <a href="/A004639/b004639.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = A007095(n^3) = A007095(A000578(n)). - _Vincenzo Librandi_, Oct 15 2015
%t Table[FromDigits[IntegerDigits[n^3, 9]], {n, 45}] (* _Vincenzo Librandi_, Oct 15 2015 *)
%o (Magma) [Seqint(Intseq(n^3, 9)): n in [1..45]]; // _Vincenzo Librandi_, Oct 15 2015
%o (PARI) for(n=1,40, print1(fromdigits(digits(n^3, 9)), ", ")) \\ _G. C. Greubel_, Sep 10 2018
%Y Cf. A000578, A007095.
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_
%E Changed offset and more terms from _Vincenzo Librandi_, Oct 15 2015
|