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

151, 241, 431, 641, 911, 3881, 4751, 4871, 5441, 5471, 5641, 5711, 6791, 6871, 8831, 9041, 9431, 10711, 12721, 13751, 14071, 14431, 14591, 15551, 16631, 16871, 17231, 17681, 17791, 18401, 19031, 19471, 21401, 25111, 25391, 25561, 26921, 27031

Offset

1,1

Links

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

Mathematica

okQ[p_] := MultiplicativeOrder[2, p] == (p-1)/10;
Select[Prime[Range[10000]], okQ] (* Jean-François Alcover, Nov 23 2024 *)

Prog

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

Crossrefs

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

Sequence in context: A334769 A334931 A059858 * A276264 A070182 A100200

Adjacent sequences: A152307 A152308 A152309 * A152311 A152312 A152313

Keyword

nonn

Author

Klaus Brockhaus, Dec 02 2008

Status

approved