%I #21 Sep 08 2022 08:44:33
%S 1,11,36,121,236,426,1000,1331,2061,2626,3611,5016,6256,11000,12561,
%T 14641,20216,23001,25666,32216,36000,43021,50321,55206,63361,102146,
%U 111246,121000,131051,141501,152566,164351,206526,222406,236000,253011,300451,315656,334641
%N Cubes written in base 7.
%H G. C. Greubel, <a href="/A004637/b004637.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = A007093(n^3) = A007093(A000578(n)). - _Vincenzo Librandi_, Oct 15 2015
%t FromDigits[IntegerDigits[#,7]]&/@(Range[40]^3) (* _Harvey P. Dale_, Feb 24 2013 *)
%t Table[FromDigits[IntegerDigits[n^3, 7]], {n, 40}] (* _Vincenzo Librandi_, Oct 15 2015 *)
%o (Magma) [Seqint(Intseq(n^3, 7)): n in [1..40]]; // _Vincenzo Librandi_, Oct 15 2015
%o (PARI) for(n=1,40, print1(fromdigits(digits(n^3, 7)), ", ")) \\ _G. C. Greubel_, Sep 10 2018
%Y Cf. A000578, A007093.
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_
%E Changed offset and more terms from _Vincenzo Librandi_, Oct 15 2015
|