A004639 Cubes written in base 9.
1, 8, 30, 71, 148, 260, 421, 628, 1000, 1331, 1738, 2330, 3011, 3678, 4560, 5551, 6658, 8000, 10361, 11868, 13630, 15541, 17618, 20860, 23381, 26088, 30000, 33101, 36408, 41030, 44771, 48848, 54260, 58821, 64728, 71000, 76431, 83238, 100330, 106711, 114478
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..5000
Programs
-
Magma
[Seqint(Intseq(n^3, 9)): n in [1..45]]; // Vincenzo Librandi, Oct 15 2015
-
Mathematica
Table[FromDigits[IntegerDigits[n^3, 9]], {n, 45}] (* Vincenzo Librandi, Oct 15 2015 *)
-
PARI
for(n=1,40, print1(fromdigits(digits(n^3, 9)), ", ")) \\ G. C. Greubel, Sep 10 2018
Formula
Extensions
Changed offset and more terms from Vincenzo Librandi, Oct 15 2015