|
|
A121970
|
|
Numbers n such that if you subtract n from its reversal you get a positive number with the same digits as n.
|
|
0
|
|
|
459, 1467, 1692, 3285, 8019, 14967, 16992, 23706, 23769, 24894, 26496, 32796, 32985, 37206, 40698, 44397, 45207, 49599, 62298, 80199, 80919, 104697, 106992, 108729, 108972, 127809, 134667, 135378, 135774, 136818, 136962, 145827, 147492
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If negative numbers are included then the sequence is the above together with its reversals. - Robert G. Wilson v, Sep 11 2006
|
|
LINKS
|
|
|
EXAMPLE
|
459 is a member because 954 - 459 = 495; 16992 is a member because 29961 - 16992 = 12969.
|
|
MATHEMATICA
|
Select[Table[n, {n, 200000}], ToExpression[StringReverse[ToString[ # ]]] - # > 0 && Sort[IntegerDigits[ # ]] == Sort[IntegerDigits[ToExpression[StringReverse[ToString[ # ]]] - # ]] &]
fQ[n_] := Block[{id = IntegerDigits@n}, rev = FromDigits@ Reverse@id; rev > n && Sort@id == Sort@IntegerDigits[rev - n]]; Select[ Range@153971, fQ@# &] (* Robert G. Wilson v, Sep 11 2006 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|