The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A066059 Integers such that the 'Reverse and Add!' algorithm in base 2 (cf. A062128) does not lead to a palindrome. 14

%I

%S 22,26,28,35,37,41,46,47,49,60,61,67,75,77,78,84,86,89,90,94,95,97,

%T 105,106,108,110,116,120,122,124,125,131,135,139,141,147,149,152,155,

%U 157,158,163,164,166,169,172,174,177,180,182,185,186,190,191,193,197,199

%N Integers such that the 'Reverse and Add!' algorithm in base 2 (cf. A062128) does not lead to a palindrome.

%C The analog of A023108 in base 2.

%C It seems that for all these numbers it can be proven that they never reach a palindrome. For this it is sufficient to prove this for all seeds as given in A075252. As observed, for all numbers in A075252, lim_{n -> inf} t(n+1)/t(n) is 1 or 2 (1 for even n, 2 for odd n or reverse); i.e., lim_{n -> inf} t(n+2)/t(n) = 2, t(n) being the n-th term of the trajectory. - _A.H.M. Smeets_, Feb 10 2019

%H A.H.M. Smeets, <a href="/A066059/b066059.txt">Table of n, a(n) for n = 1..20000</a>

%H Klaus Brockhaus, <a href="/A058042/a058042.txt">On the'Reverse and Add!' algorithm in base 2</a>

%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>

%t limit = 10^4; (* Assumes that there is no palindrome if none is found before "limit" iterations *)

%t Select[Range[200],

%t Length@NestWhileList[# + IntegerReverse[#, 2] &, #, # !=

%t IntegerReverse[#, 2] &, 1, limit] == limit + 1 &] (* _Robert Price_, Oct 14 2019 *)

%o (ARIBAS): For function b2reverse see A066057; function a066059(mx,stop: integer); var k,c,m,rev: integer; begin for k := 1 to mx do c := 0; m := k; rev := b2reverse(m); while m <> rev and c < stop do inc(c); m := m + rev; rev := b2reverse(m); end; if c >= stop then write(k," "); end; end; end; a066059(210,300).

%Y Cf. A062128, A023108, A062130, A033865, A058042, A061561, A066057.

%K base,nonn

%O 1,1

%A _Klaus Brockhaus_, Dec 04 2001

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 5 18:48 EDT 2020. Contains 334854 sequences. (Running on oeis4.)