|
Search: id:A104339
|
|
|
| A104339 |
|
Numbers n such that n and its digit reversal both are difference of (positive or negative) cubes. |
|
+0
1
|
|
| 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; listen)
|
|
|
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: A037455 A020675 A045980 this_sequence A039005 A022431 A047525
Adjacent sequences: A104336 A104337 A104338 this_sequence A104340 A104341 A104342
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 16 2005
|
|
|
Search completed in 0.002 seconds
|
