A079270 Nonpalindromic squares k such that reverse(k) - k is a cube.

25, 36, 2304, 2377764, 4682896, 5934096, 108175867801, 1291266322921, 4261879482624, 5201569683025, 6562388864656, 12317369371321, 52608547580625, 6743107419013476, 8805764114375089, 40069631076696004, 96968830866886969

Offset

1,1

Links

Table of n, a(n) for n=1..17.

Example

2304 is here since 4032 - 2304 = 1728 = 12^3.

Mathematica

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 *)
Select[Range[3114*10^5]^2, !PalindromeQ[#]&&IntegerQ[Surd[ IntegerReverse[ #]- #, 3]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 29 2020 *)

Crossrefs

Sequence in context: A035383 A179803 A061863 * A253025 A127022 A253018

Adjacent sequences: A079267 A079268 A079269 * A079271 A079272 A079273

Keyword

base,nonn

Author

Jason Earls, Feb 06 2003

Extensions

More terms from Ryan Propper, Aug 29 2005

a(14)-a(17) from Donovan Johnson, Mar 06 2011

Status

approved