OFFSET
1,1
COMMENTS
Each term p has the form 2^r*j + 1, where r >= 3, j is odd, and ord_p(-2) divides j.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
EXAMPLE
281 is in the sequence as 281 = 2^3*35 + 1 and 281 | 2^35 + 1.
MAPLE
with(numtheory):A:=NULL:p:=2: for c to 500 do p:=nextprime(p); if order(-2, p) mod 2=1 and p mod 8 = 1 then A:=A, p;; fi; od:A;
# Alternative:
q:= n-> isprime(n) and irem(numtheory[order](-2, n), 2)=1:
select(q, [1+8*k$k=1..1155])[]; # Alois P. Heinz, Feb 05 2026
PROG
(Python)
from sympy import n_order, nextprime
from itertools import islice
def A163184_gen(): # generator of terms
p = 3
while True:
if p&7==1 and n_order(-2, p)&1:
yield p
p = nextprime(p)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Christopher J. Smyth, Jul 22 2009
EXTENSIONS
More terms from Max Alekseyev, Sep 29 2016
STATUS
approved
