%I #23 Oct 15 2024 03:23:01
%S 2,3,1,3,1,1,3,3,1,1,3,3,1,3,3,3,1,1,1,3,1,1,1,1,1,1,1,3,3,4,3,3,1,3,
%T 1,1,1,1,1,3,3,3,1,1,3,1,1,1
%N Exponents p of the Mersenne primes 2^p - 1 (see A000043) read mod 4.
%F a(n) = A010873(A000043(n)). - _Michel Marcus_, Apr 07 2018
%t Array[Mod[MersennePrimeExponent@ #, 4] &, 45] (* _Michael De Vlieger_, Apr 07 2018 *)
%Y Cf. A000043, A010873, A126043-A126059.
%K nonn,more
%O 1,1
%A _Artur Jasinski_, Dec 17 2006
%E a(45)-a(46) from _Ivan Panchenko_, Apr 07 2018
%E a(47) from _Ivan Panchenko_, Apr 09 2018
%E a(48) from _Amiram Eldar_, Oct 14 2024