%I #17 Feb 29 2020 15:16:41
%S 25,36,2304,2377764,4682896,5934096,108175867801,1291266322921,
%T 4261879482624,5201569683025,6562388864656,12317369371321,
%U 52608547580625,6743107419013476,8805764114375089,40069631076696004,96968830866886969
%N Nonpalindromic squares k such that reverse(k) - k is a cube.
%e 2304 is here since 4032 - 2304 = 1728 = 12^3.
%t r[n_] := FromDigits[Reverse[IntegerDigits[n]]]; PalindromicQ[n_] := (r[n] == n); CubicQ[n_] := IntegerQ[n^(1/3)]; Do[k = n^2; If[ !PalindromicQ[k] && CubicQ[r[k] - k], Print[k]], {n, 3, 10^8}] (* _Ryan Propper_, Aug 29 2005 *)
%t Select[Range[3114*10^5]^2,!PalindromeQ[#]&&IntegerQ[Surd[ IntegerReverse[ #]- #,3]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 29 2020 *)
%K base,nonn
%O 1,1
%A _Jason Earls_, Feb 06 2003
%E More terms from _Ryan Propper_, Aug 29 2005
%E a(14)-a(17) from _Donovan Johnson_, Mar 06 2011