|
|
A319441
|
|
Cubes of non-palindromic numbers.
|
|
2
|
|
|
1000, 1728, 2197, 2744, 3375, 4096, 4913, 5832, 6859, 8000, 9261, 12167, 13824, 15625, 17576, 19683, 21952, 24389, 27000, 29791, 32768, 39304, 42875, 46656, 50653, 54872, 59319, 64000, 68921, 74088, 79507, 91125, 97336, 103823, 110592, 117649, 125000, 132651, 140608
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
2201^3 = 10662526601 is a term.
|
|
MATHEMATICA
|
palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; DeleteCases[Range[10, 110], _?palQ]^3 (* Vincenzo Librandi, Sep 19 2018 *)
Select[Range[100], !PalindromeQ[#]&]^3 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 13 2019 *)
|
|
PROG
|
(Magma) [n^3: n in [0..65] | Intseq(n) ne Reverse(Intseq(n))]; // Vincenzo Librandi, Sep 19 2018
terms(n) = my(i=0, x=1); while(1, if(i==n, break, if(is_a029742(x), print1(x^3, ", "); i++)); x++)
/* Print initial 40 terms as follows */
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|