This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A152310 #13 Nov 23 2024 11:11:20 %S A152310 151,241,431,641,911,3881,4751,4871,5441,5471,5641,5711,6791,6871, %T A152310 8831,9041,9431,10711,12721,13751,14071,14431,14591,15551,16631,16871, %U A152310 17231,17681,17791,18401,19031,19471,21401,25111,25391,25561,26921,27031 %N A152310 Primes p such that the multiplicative order of 2 modulo p is (p-1)/10. %H A152310 Klaus Brockhaus, <a href="/A152310/b152310.txt">Table of n, a(n) for n=1..1000</a> %t A152310 okQ[p_] := MultiplicativeOrder[2, p] == (p-1)/10; %t A152310 Select[Prime[Range[10000]], okQ] (* _Jean-François Alcover_, Nov 23 2024 *) %o A152310 (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) ]; %o A152310 (PARI) Vec(select(p->((p!=2) && (znorder(Mod(2, p)) == (p-1)/10)), primes(10000))) \\ _Michel Marcus_, Feb 09 2015 %Y A152310 Cf. A115591, A001133, A001134, A001135, A001136. %K A152310 nonn %O A152310 1,1 %A A152310 _Klaus Brockhaus_, Dec 02 2008