OFFSET
1,1
COMMENTS
Subsequence of A014664, consisting of odd elements.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = multiplicative order of 2 modulo A014663(n).
MATHEMATICA
p = Select[Range[1000], PrimeQ]; Select[MultiplicativeOrder[2, #] & /@ p, OddQ] (* Amiram Eldar, Jul 30 2020 *)
PROG
(PARI) forprime(p=3, 10^5, z=znorder(Mod(2, p)); if(z%2, print1(z, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Apr 29 2008
STATUS
approved