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 A341759 #38 Nov 06 2022 17:48:59 %S A341759 5,17,41,53,293,881,2393,4373,5333,5417,6173,7937,12641,13121,14153, %T A341759 16001,16253,18521,23813,27701,37337,42461,48761,50273,58481,74897, %U A341759 82781,88493,106433,113777,143261,174761,195281,227597,236681,249317,297233,336041,341333 %N A341759 Primes p such that Euler(p, 1) is an integer multiple of Bernoulli(p + 1, 1). %C A341759 Primes p such that p+1 is a term of A014741. - _Bill McEachen_, Sep 20 2021 %e A341759 Euler(17, 1) = 29127*Bernoulli(18, 1). %t A341759 Select[Select[Range[200000], IntegerQ[(2*(-1 + 2^#1))/#1] &] - 1, PrimeQ] (* _Vaclav Kotesovec_, Mar 24 2021 *) %t A341759 Select[Prime[Range[30000]],Divisible[EulerE[#,1],BernoulliB[#+1]]&]//Quiet (* _Harvey P. Dale_, Nov 06 2022 *) %Y A341759 Cf. A342320, A014741. %K A341759 nonn %O A341759 1,1 %A A341759 _Peter Luschny_, Mar 24 2021