A014187 Cubes of palindromes.
0, 1, 8, 27, 64, 125, 216, 343, 512, 729, 1331, 10648, 35937, 85184, 166375, 287496, 456533, 681472, 970299, 1030301, 1367631, 1771561, 2248091, 2803221, 3442951, 4173281, 5000211, 5929741, 6967871
Offset: 0
Programs
-
Mathematica
Select[Range[0,200],PalindromeQ]^3 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 02 2017 *)