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
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Jul 16 2005
STATUS
approved