cp's OEIS Frontend

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.

Showing 1-3 of 3 results.

A120337 Euler-irregular primes p dividing E(2k) for some 2k < p-1.

Original entry on oeis.org

19, 31, 43, 47, 61, 67, 71, 79, 101, 137, 139, 149, 193, 223, 241, 251, 263, 277, 307, 311, 349, 353, 359, 373, 379, 419, 433, 461, 463, 491, 509, 541, 563, 571, 577, 587, 619, 677, 691, 709, 739, 751, 761, 769, 773, 811, 821, 877, 887, 907, 929, 941, 967, 971, 983
Offset: 1

Views

Author

Stefan Krämer, Jun 22 2006

Keywords

Comments

Conjecture (Ernvall and Metsänkylä, 1978): The asymptotic density of this sequence within the primes is 1 - 1/sqrt(e) = 0.393469... (A290506), the same as the corresponding conjectured density of the irregular primes (A000928). - Amiram Eldar, Dec 06 2022

Examples

			a(1) = 19 because 19 divides E(10) = -19*2659 and 10 + 1 < 19.
		

Crossrefs

Programs

  • Maple
    A120337_list := proc(bound)
    local ae, F, p, m, maxp; F := NULL;
    for m from 2 by 2 to bound do
      p := nextprime(m+1);
      ae := abs(euler(m));
      maxp := min(ae, bound);
      while p <= maxp do
          if ae mod p = 0
          then F := F,p fi;
          p := nextprime(p);
       od;
    od;
    sort([F]) end: # Peter Luschny, Apr 25 2011
  • Mathematica
    fQ[p_] := Block[{k = 1}, While[ 2k +1 < p && Mod[ EulerE[ 2k], p] != 0, k++]; p > 2k +1]; Select[ Prime@ Range@ 168, fQ@# &] (* Robert G. Wilson v, Dec 10 2014 *)

Formula

The (trivial) divisors of E(2n) are given by the theorem of Sylvester (1861): Let p prime with p=1 (mod 4), p-1|2n, p^k|2n then p^{k+1} | E(2n).

Extensions

Terms 251 through 983 from Peter Luschny, Apr 25 2011

A092218 Primes that divide some Euler number.

Original entry on oeis.org

5, 13, 17, 19, 29, 31, 37, 41, 43, 47, 53, 61, 67, 71, 73, 79, 89, 97, 101, 109, 113, 137, 139, 149, 157, 173, 181, 193, 197, 223, 229, 233, 241, 251, 257, 263, 269, 277, 281, 293, 307, 311, 313, 317, 337, 349, 353, 359, 373, 379, 389, 397, 401, 409, 419, 421
Offset: 1

Views

Author

T. D. Noe, Feb 25 2004

Keywords

Comments

For a prime p in this sequence, p will divide an Euler number E(k) for k < p. The density of these primes is approximately 0.66.
This sequence is the union of A002144 (primes of the form 4k+1) and A120115. Note that if prime p=1 (mod 4), then p divides E(p-1). - T. D. Noe, Jun 09 2006

Crossrefs

Cf. A000364 (Euler numbers), A092217 (primes that do not divide any Euler number), A092219.

Programs

  • Mathematica
    ee=Table[Abs[EulerE[2i]], {i, 500}]; t=Table[p=Prime[n]; cnt=0; Do[If[Mod[ee[[i]], p]==0, cnt++ ], {i, p}]; cnt, {n, PrimePi[500]}]; Prime[Select[Range[Length[t]], t[[ # ]]>0&]]

A198245 Euler primes: Primes p that divide E(p - 3), where E(k) is the k-th Euler number.

Original entry on oeis.org

149, 241, 2946901, 16467631, 17613227, 327784727, 426369739, 1062232319
Offset: 1

Views

Author

Romeo Mestrovic, Oct 22 2011

Keywords

Comments

Also called Vandiver primes. - N. J. A. Sloane, Sep 25 2023
See A196230 for another sequence of "Euler primes". - N. J. A. Sloane, May 29 2022
The even-indexed Euler numbers are A028296, the odd-indexed Euler numbers are all zero.
Numerous combinatorial congruences recently obtained by Z. W. Sun and by Z. H. Sun contain the Euler numbers E(p-3) with a prime p.
Only three primes less than 3 * 10^6 satisfy this condition (the current members of the sequence).
Such primes have been recently suggested by Z. W. Sun; namely, Sun found the first and the second such primes, 149 and 241, and used them to discover new congruences involving E(p - 3).
This is reported by Zhi Wei Sun on Feb 08 2010 and the third prime was found by Romeo Mestrovic (on Sep 26 2011).
Mestrovic (2012) computes that only three primes < 10^7 are in the sequence, but he conjectures that the sequence is infinite. - Jonathan Sondow, Dec 18 2012
If it exists, a(9) > 2 * 10^9. - Hiroaki Yamanouchi, Aug 06 2017
Hathi et al. give a(3) as 2124679 and claim that the terms 2124679, 16467631, 17613227 were reported in Cosgrave, Dilcher, 2013, but 2124679 does not appear in table 2 in that paper. How is 2124679 related to this sequence? Note that 2124679 is the second Wolstenholme prime (A088164). - Felix Fröhlich, Apr 27 2021

References

  • J. B. Cosgrave, A Mersenne-Wieferich Odyssey, Manuscript, May 2022. See Section 18.8.

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[2, 200]], IntegerQ[EulerE[# - 3]/#] &] (* Alonso del Arte, Oct 31 2011 *)

Extensions

a(4)-a(8) from Hiroaki Yamanouchi, Aug 06 2017
Showing 1-3 of 3 results.