|
%I #7 Jan 04 2018 03:34:04
%S 0,1,8,27,64,125,216,343,512,729,1331,10648,35937,85184,166375,287496,
%T 456533,681472,970299,1030301,1367631,1771561,2248091,2803221,3442951,
%U 4173281,5000211,5929741,6967871
%N Cubes of palindromes.
%t Select[Range[0,200],PalindromeQ]^3 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 02 2017 *)
%Y Cf. A002113, A014186.
%K nonn,base
%O 0,3
%A _N. J. A. Sloane_.
|
