%I #18 Aug 19 2024 11:42:19
%S 1,17,13,35,11,53,31,71,5,89,49,107,29,125,67,143,19,161,85,179,47,
%T 197,103,215,7,233,121,251,65,269,139,287,37,305,157,323,83,341,175,
%U 359,23,377,193,395,101,413,211,431,55,449,229,467,119
%N Reduced Collatz function R applied to the numbers 6n+5: a(n) = R(6n+5), where R(k) = (3k+1)/2^r, with r as large as possible.
%H Paolo Xausa, <a href="/A373864/b373864.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A000265(A017257(n)).
%t A373864[n_] := #/2^IntegerExponent[#, 2] & [9*n + 8];
%t Array[A373864, 100, 0] (* _Paolo Xausa_, Aug 19 2024 *)
%o (PARI) a(n) = n=9*n+8; n>>valuation(n,2);
%Y Cf. A000265, A017257, A075677, A260658, A373730.
%K nonn,easy,changed
%O 0,2
%A _Jonas Kaiser_, Jun 19 2024
|