OFFSET
1,1
LINKS
Klaus Brockhaus, Table of n, a(n) for n=1..1000
MATHEMATICA
okQ[p_] := MultiplicativeOrder[2, p] == (p-1)/11;
Select[Prime[Range[20000]], okQ] (* Jean-François Alcover, Nov 23 2024 *)
PROG
(Magma) [ p: p in PrimesUpTo(105227) | r eq 1 and Order(R!2) eq q where q, r is Quotrem(p, 11) where R is ResidueClassRing(p) ];
(PARI) Vec(select(p->((p!=2) && (znorder(Mod(2, p)) == (p-1)/11)), primes(20000))) \\ Michel Marcus, Feb 09 2015
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Klaus Brockhaus, Dec 02 2008
STATUS
approved