%I #22 Apr 09 2018 09:29:52
%S 2,0,2,1,1,2,1,1,1,2,2,1,2,1,1,1,1,1,2,1,2,2,2,2,2,1,1,2,1,1,1,2,2,1,
%T 2,2,2,2,1,1,1,2,1,2,2,1,2
%N Exponents p of the Mersenne primes 2^p - 1 (see A000043) read mod 3.
%F a(n) = A010872(A000043(n)). - _Michel Marcus_, Aug 12 2014
%t Array[Mod[MersennePrimeExponent@ #, 3] &, 45] (* _Michael De Vlieger_, Apr 07 2018 *)
%o (PARI) forprime(p=1, 1e3, if(isprime(2^p-1), print1(p%3, ", "))) \\ _Felix Fröhlich_, Aug 12 2014
%Y Cf. A010872 (n mod 3), A126044-A126059.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 17 2006
%E a(45)-a(47) from _Ivan Panchenko_, Apr 08 2018
|