A104339 Numbers n such that n and its digit reversal both are difference of (positive or negative) cubes.

0, 1, 2, 7, 8, 9, 16, 19, 27, 56, 61, 65, 72, 91, 127, 133, 215, 243, 331, 342, 343, 397, 512, 657, 686, 721, 737, 756, 793, 919, 999, 1001, 1008, 1331, 1332, 1339, 1385, 1727, 2232, 2322, 2331, 2662, 2744, 3159, 4069, 4097, 4376, 4472, 4608, 5409, 5707, 5831

Offset: 1

Author

Robert G. Wilson v, Jul 16 2005

Keywords

• base
• nonn

Crossrefs

Cf. A109879.

Programs

Mathematica

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]