%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
|