%I #10 Aug 06 2015 07:36:11
%S 23,39,99,279,775,1271,3003,26411,45059,53219,96811,180063,538083,
%T 1557987,2994571,5394027,76600323,78603291,646326135,5260930155,
%U 11705029515,55771437087,918661840551,2662267345431,156054629431431,1885162669463151,2739827178329319,23916267980687775,343334160580618935
%N Iterates of A234742, starting from value a(0) = 23, with a(1) = A234742(a(0)), a(2) = A234742(a(1)), etc.
%C The sequence reaches its fixed point at a(55) = 3643749709604450870616156947649219, after which the sequence stays constant, a(55) = a(56) = a(57), etc.
%H Antti Karttunen, <a href="/A244323/b244323.txt">Table of n, a(n) for n = 0..56</a>
%o (PARI)
%o A234742(n)=factorback(subst(lift(factor(Mod(1, 2)*Pol(binary(n)))), x, 2))+(n==1)
%o iterates_of_A234742(start,filename) = {my(n=start,prev=-1,prevprev=-1,i=0); until((n==prevprev), write(filename, i, " ", n); prevprev = prev; prev = n; n = A234742(n); i++)} \\ Computes b-file up to the second occurrence of the fixed point.
%o iterates_of_A234742(23,"b244323.txt")
%Y Cf. A234742, A235033, A235035, A260712, A260713, A260716.
%Y Cf. also A260729, A260735, A260441 (other such iterations).
%K nonn
%O 0,1
%A _Antti Karttunen_ and _M. F. Hasler_, Jul 23 2014
|