A075421 Trajectory of n under the Reverse and Add! operation carried out in base 4 (presumably) does not reach a palindrome and (presumably) does not join the trajectory of any term m < n.
290, 318, 719, 795, 799, 1210, 3903, 4199, 4207, 4219, 4236, 4278, 4279, 4294, 4326, 4333, 4334, 4338, 4402, 4598, 4662, 4726, 5046, 5357, 6157, 6174, 7246, 7247, 7295, 7407, 7549, 8063, 8191, 9211, 12319, 12431, 12463, 12539, 15487, 16519, 16587
Offset: 1
Examples
719 is a term since the trajectory of 719 (presumably) does not lead to an integer which occurs in the trajectory of 290 or of 318.
Links
- A.H.M. Smeets, Table of n, a(n) for n = 1..471
- Klaus Brockhaus, Illustration: Distribution of terms below 2000000
- David J. Seal, Results
- Index entries for sequences related to Reverse and Add!
Programs
-
Mathematica
limit = 10^3; (* Assumes that there is no palindrome if none is found before "limit" iterations *) utraj = {}; Select[Range[0, 17000], (x = NestWhileList[# + IntegerReverse[#, 4] &, #, # !=IntegerReverse[#, 4] & , 1, limit]; If[Length[x] >= limit && Intersection[x, utraj] == {}, utraj = Union[utraj, x]; True, utraj = Union[utraj, x]]) &] (* Robert Price, Oct 16 2019 *)
Comments