A152307 Primes p such that the multiplicative order of 2 modulo p is (p-1)/7.

1163, 1709, 2003, 3109, 3389, 3739, 5237, 5531, 5867, 7309, 9157, 9829, 10627, 10739, 11117, 11243, 11299, 11411, 11467, 13259, 18803, 20147, 20483, 21323, 21757, 27749, 27763, 29947, 30773, 31123, 31627, 32803, 33461, 33587, 34469

Offset

1,1

Links

Klaus Brockhaus, Table of n, a(n) for n=1..1000

Mathematica

Select[Prime[Range[4000]], MultiplicativeOrder[2, #]==(#-1)/7&] (* Harvey P. Dale, Oct 10 2024 *)

Prog

(Magma) [ p: p in PrimesUpTo(34469) | r eq 1 and Order(R!2) eq q where q, r is Quotrem(p, 7) where R is ResidueClassRing(p) ];
(PARI) Vec(select(p->((p!=2) && (znorder(Mod(2, p)) == (p-1)/7)), primes(10000))) \\ Michel Marcus, Feb 09 2015

Crossrefs

Cf. A115591, A001133, A001134, A001135, A001136.

Sequence in context: A237205 A358868 A236814 * A224172 A223863 A223986

Adjacent sequences: A152304 A152305 A152306 * A152308 A152309 A152310

Keyword

nonn

Author

Klaus Brockhaus, Dec 02 2008

Status

approved