|
%I #12 Feb 28 2024 13:34:37
%S 14,25,30,36,41,47,52,58,63,69,74,85,96,1030,1140,1250,1302,1303,1360,
%T 1412,1413,1470,1522,1523,1580,1632,1633,1690,1742,1743,1852,1853,
%U 1962,1963,2030,2031,2140,2141,2250,2251,2303,2304,2360,2361,2413,2414,2470
%N Difference between n and its reversal is a nonzero cube.
%H Harvey P. Dale, <a href="/A061923/b061923.txt">Table of n, a(n) for n = 1..908</a> (* All terms up to 10^6 *)
%t nzcQ[n_]:=With[{c=Abs[n-IntegerReverse[n]]},DigitCount[c,10,0]==0&&IntegerQ[Surd[c,3]]]; Select[Range[2500],nzcQ] (* _Harvey P. Dale_, Feb 28 2024 *)
%Y Sequence A061379 allows zeros.
%K base,easy,nonn
%O 1,1
%A Larry Reeves (larryr(AT)acm.org), May 16 2001
|
