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,3

Links

Table of n, a(n) for n=1..52.

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

Adjacent sequences: A104336 A104337 A104338 * A104340 A104341 A104342

Keyword

base,nonn

Author

Robert G. Wilson v, Jul 16 2005

Status

approved