%I #6 Dec 28 2021 17:24:31
%S 2,3,5,17,29,47,113,179,197,257,293,317,383,449,467,479,509,569,659,
%T 719,797,863,1289,1373,1427,1439,1487,1823,1913,1949,2063,2207,2213,
%U 2273,2339,2417,2447,2579,2633,2879,2909,3023,3119,3137,3167,3347,3359,3449,3557
%N Primes p such that the multiplicative order of 2 modulo k is odd, where k is the largest odd divisor of p - 1.
%t Select[Range[3600], PrimeQ[#] && OddQ[MultiplicativeOrder[2, (# - 1)/2^IntegerExponent[# - 1, 2]]] &] (* _Amiram Eldar_, Nov 26 2021 *)
%o (PARI) isok(p) = isprime(p) && znorder(Mod(2, (p-1)/2^valuation(p-1,2)))%2;
%Y Subsequence of A348062.
%Y Cf. A036259.
%K nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Nov 24 2021
|