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 A019365 #29 Jan 26 2025 14:43:39 %S A019365 7,11,17,19,23,29,47,59,73,97,101,103,109,131,137,139,149,167,179,193, %T A019365 229,233,257,263,269,331,349,353,383,389,421,433,461,463,491,499,503, %U A019365 509,541,571,577,593,607,617,619,659,661,673,701,709,727,743,829,857,859,863 %N A019365 Primes with primitive root 40. %C A019365 Subsequence of A028416. - _Davide Rotondo_, Dec 31 2024 %H A019365 Vincenzo Librandi, <a href="/A019365/b019365.txt">Table of n, a(n) for n = 1..1000</a> %H A019365 <a href="/index/Pri#primes_root">Index entries for primes by primitive root</a> %t A019365 pr=40; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &] %o A019365 (PARI) isok(p) = isprime(p) && (gcd(p,40)==1) && (znorder(Mod(40, p)) == p-1); \\ _Michel Marcus_, Jan 26 2025 %Y A019365 Cf. A028416. %K A019365 nonn %O A019365 1,1 %A A019365 _David W. Wilson_