login
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
OFFSET
1,3
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
Cf. A109879.
Sequence in context: A020675 A317303 A045980 * A199004 A168064 A243167
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Jul 16 2005
STATUS
approved