|
%I #11 Apr 04 2024 15:39:07
%S 1,1,0,1,0,1,1,0,1,1,1,1,0,1,0,1,0,1,0,1,0,0,1,1,0,0,0,1,0,0,1,1,0,1,
%T 0,0,0,0,1,1,1,1,1,1,0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,1,1,1,0,
%U 1,1,1,0,1,1,0,0,1,0,1,0,0,1,1,1,0,1,1,1,1,0
%N Main diagonal of A365992: parity of the n-th term in the trajectory of n under the A185452 map.
%C See A365992 for more information and links.
%H Paolo Xausa, <a href="/A371691/b371691.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/3#3x1">Index entries for sequences related to 3x+1 (or Collatz) problem</a>
%F a(n) = A368301(n) mod 2 = A365992(n,n-1).
%t Table[Mod[Nest[If[OddQ[#], (5*#+1)/2, #/2] &, n, n-1], 2], {n, 100}]
%Y Parity of A368301.
%Y Cf. A185452, A365991, A365992, A371689, A371690.
%K nonn,easy
%O 1
%A _Paolo Xausa_, Apr 04 2024
|
