%I #9 Jul 30 2020 03:57:55
%S 3,11,5,23,35,9,39,11,51,7,15,83,95,99,37,29,119,131,135,155,21,179,
%T 183,191,43,73,231,239,243,251,299,25,303,45,323,359,121,371,375,411,
%U 419,431,55,443,91,153,117,483,491,495,515,519,531,543,29,575,611,615,639
%N Odd multiplicative orders of 2 modulo primes.
%C Subsequence of A014664, consisting of odd elements.
%H Amiram Eldar, <a href="/A139686/b139686.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = multiplicative order of 2 modulo A014663(n).
%t p = Select[Range[1000], PrimeQ]; Select[MultiplicativeOrder[2, #] & /@ p, OddQ] (* _Amiram Eldar_, Jul 30 2020 *)
%o (PARI) forprime(p=3,10^5,z=znorder(Mod(2,p));if(z%2,print1(z,", ")))
%Y Cf. A014664, A014663.
%K nonn
%O 1,1
%A _Max Alekseyev_, Apr 29 2008
|