|
%I #15 Jan 19 2018 13:56:35
%S 1,2,3,4,5,6,7,8,9,11,14,22,25,30,33,36,41,44,47,52,55,58,63,66,69,74,
%T 77,85,88,96,99,101,111,121,131,141,151,161,171,181,191,202,212,222,
%U 232,242,252,262,272,282,292,303,313,323,333,343,353,363,373,383,393
%N Difference between n and its reversal is a perfect cube.
%C 14 ~ 41 = 41 - 14 = 27 = 3^3 hence 14 and 41 are in the sequence.
%H Harvey P. Dale, <a href="/A061379/b061379.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = k if mod ( k ~R(k)) = r^3.where R(k) is the digit reversal of k (A004086).
%t pcQ[n_]:=Module[{rn=FromDigits[Reverse[IntegerDigits[n]]]},IntegerQ[ Power[ Abs[n-rn], (3)^-1]]]; Select[Range[400], pcQ] (* _Harvey P. Dale_, Nov 21 2011 *)
%t Select[Range[400],IntegerQ[Surd[Abs[#-IntegerReverse[#]],3]]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 06 2016 *)
%Y Sequence A061923 excludes palindromic n's.
%K nonn,base,easy
%O 1,2
%A _Amarnath Murthy_, May 02 2001
%E Corrected and extended by _Erich Friedman_, May 08 2001
|
