A091675 Positive integers n such that the trajectory of n under the Reverse and Add! operation carried out in base 4 (presumably) does not join the trajectory of any m < n.
1, 3, 21, 22, 26, 29, 31, 55, 256, 258, 262, 266, 269, 271, 282, 286, 287, 302, 312, 413, 479, 511, 519, 551, 555, 719, 795, 799, 1026, 1029, 1034, 1037, 1066, 1549, 1790, 2863, 3087, 3119, 4096, 4098, 4102, 4104, 4106, 4108, 4109, 4113, 4114, 4116, 4117
Offset: 1
Examples
The trajectory of 2 is part of the trajectory of 1 (cf. A035524); the trajectory of 3 does not join the trajectory of 1 within 10000 steps; the trajectory of 21 does not join the trajectory of 1 or of 3 within 10000 steps.
Links
Programs
-
Mathematica
limit = 10^3; utraj = {}; Select[Range[4120], (x = NestList[ # + IntegerReverse[#, 4] &, #, limit]; If[Intersection[x, utraj] == {}, utraj = Union[utraj, x]; True, utraj = Union[utraj, x]]) &] (* Robert Price, Oct 20 2019 *)
Comments