A004165 - OEIS

%I #32 Dec 28 2023 07:08:01

%S 1,8,72,46,521,612,343,215,927,1,1331,8271,7912,4472,5733,6904,3194,

%T 2385,9586,8,1629,84601,76121,42831,52651,67571,38691,25912,98342,72,

%U 19792,86723,73953,40393,57824,65664,35605,27845,91395,46,12986,88047,70597,48158

%N Cubes written backwards.

%H Michael S. Branicky, <a href="/A004165/b004165.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Vincenzo Librandi)

%F a(n) = A004086(A000578(n)). - _Michel Marcus_, Jun 04 2019

%p a:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||(n^3)):

%p seq(a(n), n=1..60);  # _Alois P. Heinz_, May 20 2022

%t Table[FromDigits[Reverse[IntegerDigits[n^3]]], {n, 1, 50}] (* _Vincenzo Librandi_, Aug 27 2013 *)

%t IntegerReverse[Range[50]^3] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 23 2019 *)

%o (PARI) a(n) = fromdigits(Vecrev(digits(n^3))); \\ _Michel Marcus_, Jun 04 2019

%o (Python)

%o def a(n): return int(str(n**3)[::-1])

%o print([a(n) for n in range(1, 45)]) # _Michael S. Branicky_, May 24 2022

%Y Cf. A000578 (cubes), A004086 (n written backwards).

%Y Cf. A002942 (squares written backwards).

%K nonn,base

%O 1,2

%A _N. J. A. Sloane_

%E More terms from _Jeremy Gardiner_, Sep 08 2002