|
| |
|
|
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
|
Michael S. Branicky, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Vincenzo Librandi)
|
|
|
FORMULA
|
a(n) = A004086(A000578(n)). - Michel Marcus, Jun 04 2019
|
|
|
MAPLE
|
P:=proc(i) local a, b, c, n; for n from 1 by 1 to i do a:=evalf(floor(log10(n^3)+1)); b:=n^3; c:=0; while a>0 do c:=c+(b-(trunc(b/10)*10))*10^(a-1); b:=trunc(b/10); a:=a-1; od; print(c); od; end: P(100); # Paolo P. Lava, Aug 07 2008
# second Maple program:
a:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||(n^3)):
seq(a(n), n=1..60); # Alois P. Heinz, May 20 2022
|
|
|
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])
print([a(n) for n in range(1, 45)]) # Michael S. Branicky, May 24 2022
|
|
|
CROSSREFS
|
Cf. A000578 (cubes), A004086 (n written backwards).
Cf. A002942 (squares written backwards).
Sequence in context: A235128 A226163 A338622 * A032554 A097255 A115693
Adjacent sequences: A004162 A004163 A004164 * A004166 A004167 A004168
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
N. J. A. Sloane
|
|
|
EXTENSIONS
|
More terms from Jeremy Gardiner, Sep 08 2002
|
|
|
STATUS
|
approved
|
| |
|
|
