|
%I #3 Mar 30 2012 17:31:12
%S 0,1,2,7,8,9,16,19,27,56,61,65,72,91,127,133,215,243,331,342,343,397,
%T 512,657,686,721,737,756,793,919,999,1001,1008,1331,1332,1339,1385,
%U 1727,2232,2322,2331,2662,2744,3159,4069,4097,4376,4472,4608,5409,5707,5831
%N Numbers n such that n and its digit reversal both are difference of (positive or negative) cubes.
%t t1 = Select[ Union[ Flatten[ Table[n^3 - m^3, {n, 35}, {m, -35, n - 1}]]], # < 10^4 && Mod[ #, 10] != 0 &]; t2 = FromDigits /@ Reverse /@ IntegerDigits /@ t1; Take[ Intersection[t1, t2], 51]
%Y Cf. A109879.
%K base,nonn
%O 1,3
%A _Robert G. Wilson v_, Jul 16 2005
|
