

A104339


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


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


LINKS



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]


CROSSREFS



KEYWORD

base,nonn


AUTHOR



STATUS

approved



