|
| |
|
|
A121970
|
|
Numbers n such that if you subtract n from its reversal you get a positive number with the same digits as n.
|
|
1
| |
|
|
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; 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.
|
|
|
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
| Cf. A055161, A121970.
Sequence in context: A201257 A062043 A124620 * A055162 A055159 A124694
Adjacent sequences: A121967 A121968 A121969 * A121971 A121972 A121973
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Tanya Khovanova (tanyakh(AT)yahoo.com), Sep 04 2006
|
| |
|
|
