|
|
A079270
|
|
Nonpalindromic squares k such that reverse(k) - k is a cube.
|
|
0
|
|
|
25, 36, 2304, 2377764, 4682896, 5934096, 108175867801, 1291266322921, 4261879482624, 5201569683025, 6562388864656, 12317369371321, 52608547580625, 6743107419013476, 8805764114375089, 40069631076696004, 96968830866886969
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|