A121970 Numbers k such that if you subtract k from its reversal you get a positive number with the same digits as k.
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
Offset: 1
Examples
459 is a member because 954 - 459 = 495; 16992 is a member because 29961 - 16992 = 12969.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
- Kevin Browne, Subtracting the Reversal.
Programs
-
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 *) Select[Range[150000],With[{c=IntegerReverse[#]-#},c>0&&Sort[IntegerDigits[c]]==Sort[IntegerDigits[#]]&]] (* Harvey P. Dale, Jun 07 2025 *)
Comments