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 A379161 #13 Jan 03 2025 11:47:38 %S A379161 19,29,47,59,83,167,223,227,311,367,383,389,419,439,467,479,503,563, %T A379161 587,607,653,719,809,839,887,971,983,1123,1307,1319,1447,1487,1543, %U A379161 1733,1811,1823,1907,1997,2063,2099,2153,2239,2383,2579,2741,2801,2819,2837,2887,2903,2909,2999,3023,3083,3167,3463,3547 %N A379161 Primes p such that the multiplicative order of 7 modulo p is prime. %C A379161 Odd primes that divide 7^p-1 for some prime p [after Robert Israel]. %H A379161 Robert Israel, <a href="/A379161/b379161.txt">Table of n, a(n) for n = 1..10000</a> %p A379161 filter:= n -> isprime(n) and isprime(numtheory:-order(7,n)): %p A379161 select(filter, [2,3,5, seq(i,i=11..10000,2)]); # _Robert Israel_, Jan 03 2025 %t A379161 Select[Prime@Range@4000,PrimeQ@MultiplicativeOrder[7,#]&] %o A379161 (Magma) [p: p in PrimesInInterval(2, 4000) | IsPrime(Modorder(7, p))]; %Y A379161 Cf. A000040, A122094, A277048, A277049. %K A379161 nonn %O A379161 1,1 %A A379161 _Vincenzo Librandi_, Dec 17 2024