This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A070789 #10 Oct 21 2019 02:35:51 %S A070789 1,2,4,8,16,25,34,43,52,59,61,68,70,77,86,95,104,109,151,154,155,157, %T A070789 203,208,209,250,253,254,256,302,307,308,352,353,355,401,406,407,409, %U A070789 451,452,454,500,505,506,508,550,551,553,604,605,607,650,652,703,704 %N A070789 Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 1. %H A070789 <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a> %e A070789 The trajectory of 2 is part of the trajectory of 1; the trajectory of 401 joins the trajectory of 1 at 1111 after 3 steps. %t A070789 limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 1, limit]; %t A070789 Select[Range[704], %t A070789 Intersection[NestList[ # + IntegerReverse[#] &, #, limit], %t A070789 x] != {} &] (* _Robert Price_, Oct 20 2019 *) %Y A070789 Cf. A070788, A070790 - A070798, A063049. %K A070789 base,nonn %O A070789 1,2 %A A070789 _Klaus Brockhaus_, May 07 2002