|
|
A004165
|
|
Cubes written backwards.
|
|
6
|
|
|
1, 8, 72, 46, 521, 612, 343, 215, 927, 1, 1331, 8271, 7912, 4472, 5733, 6904, 3194, 2385, 9586, 8, 1629, 84601, 76121, 42831, 52651, 67571, 38691, 25912, 98342, 72, 19792, 86723, 73953, 40393, 57824, 65664, 35605, 27845, 91395, 46, 12986, 88047, 70597, 48158
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
a:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||(n^3)):
|
|
MATHEMATICA
|
Table[FromDigits[Reverse[IntegerDigits[n^3]]], {n, 1, 50}] (* Vincenzo Librandi, Aug 27 2013 *)
IntegerReverse[Range[50]^3] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 23 2019 *)
|
|
PROG
|
(PARI) a(n) = fromdigits(Vecrev(digits(n^3))); \\ Michel Marcus, Jun 04 2019
(Python)
def a(n): return int(str(n**3)[::-1])
|
|
CROSSREFS
|
Cf. A002942 (squares written backwards).
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|