%I #11 Apr 04 2024 12:52:20

%S 1,1,1,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,1,0,1,0,0,0,1,1,1,0,0,1,0,1,0,

%T 1,0,1,0,0,0,0,1,0,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,0,0,1,0,

%U 1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,1,0,0,0,0,1

%N Main diagonal of A347283: parity of the n-th term in the trajectory of n under the A006370 map.

%H Paolo Xausa, <a href="/A371690/b371690.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) = A347272(n-1) mod 2 = A347283(n,n-1).

%t Table[Mod[Nest[If[OddQ[#], 3*#+1, #/2] &, n, n-1], 2], {n, 100}]

%Y Parity of A347272.

%Y Cf. A006370, A347270, A347283, A371689, A371691.

%K nonn,easy

%O 1

%A _Paolo Xausa_, Apr 04 2024