A077405 Trajectory of n under the Reverse and Add! operation carried out in base 3 (presumably) does not reach a palindrome and (presumably) does not join the trajectory of any term m < n.
103, 746, 805, 2231, 2326, 2671, 2725, 2959, 2969, 3679, 4421, 4430, 4439, 4448, 5894, 6626, 6638, 6686, 6698, 6733, 6741, 6779, 6789, 6793, 6943, 7124, 7365, 7849, 8093, 8801, 8836, 10771, 11078, 11158, 13184, 13361, 17558, 17639, 19115, 19196, 19733, 19895, 19901, 19907, 20106, 20124, 20149, 20161
Offset: 1
Examples
805 is a term since the trajectory of 805 (presumably) does not lead to a number which occurs in the trajectory of 103 or of 746.
Links
Programs
-
Mathematica
limit = 10^3; (* Assumes that there is no palindrome if none is found before "limit" iterations *) utraj = {}; Select[Range[0,21000], (i = 0; x = NestWhileList[(i++; # + IntegerReverse[#, 3]) &, #, # != IntegerReverse[#, 3] && i < limit &]; If[i >= limit && Intersection[x, utraj] == {}, utraj = Union[utraj, x]; True, utraj = Union[utraj, x]]) &] (* Robert Price, Oct 19 2019 *)
Extensions
Offset changed to 1 by A.H.M. Smeets, Feb 14 2019
a(41)-a(48) from A.H.M. Smeets, Feb 18 2019
Comments