[go: up one dir, main page]

login
A070794
Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 100.
2
100, 101, 103, 107, 188, 193, 200, 202, 206, 287, 292, 299, 301, 305, 386, 391, 398, 400, 404, 485, 490, 497, 503, 584, 596, 602, 683, 695, 701, 709, 782, 794, 800, 808, 881, 893, 907, 980, 992, 1034, 1069, 1076, 1124, 1159, 1166, 1214, 1249, 1256, 1291
OFFSET
1,1
EXAMPLE
The trajectory of 101 is part of the trajectory of 100; the trajectory of 485 joins the trajectory of 100 at 61105 after 5 steps.
MATHEMATICA
limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 100, limit];
Select[Range[1291],
Intersection[NestList[ # + IntegerReverse[#] &, #, limit],
x] != {} &] (* Robert Price, Oct 20 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, May 07 2002
STATUS
approved