|
| |
|
|
A341759
|
|
Primes p such that Euler(p, 1) is an integer multiple of Bernoulli(p + 1, 1).
|
|
1
|
|
|
|
5, 17, 41, 53, 293, 881, 2393, 4373, 5333, 5417, 6173, 7937, 12641, 13121, 14153, 16001, 16253, 18521, 23813, 27701, 37337, 42461, 48761, 50273, 58481, 74897, 82781, 88493, 106433, 113777, 143261, 174761, 195281, 227597, 236681, 249317, 297233, 336041, 341333
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
|
|
|
LINKS
|
|
|
|
EXAMPLE
|
Euler(17, 1) = 29127*Bernoulli(18, 1).
|
|
|
MATHEMATICA
|
Select[Select[Range[200000], IntegerQ[(2*(-1 + 2^#1))/#1] &] - 1, PrimeQ] (* Vaclav Kotesovec, Mar 24 2021 *)
Select[Prime[Range[30000]], Divisible[EulerE[#, 1], BernoulliB[#+1]]&]//Quiet (* Harvey P. Dale, Nov 06 2022 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
