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

Author

Klaus Brockhaus, Dec 02 2008

Keywords

• nonn

Links

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

Crossrefs

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

Programs

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) ];

Mathematica

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

PARI

Vec(select(p->((p!=2) && (znorder(Mod(2, p)) == (p-1)/10)), primes(10000))) \\ Michel Marcus, Feb 09 2015