The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A082890 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A082890

Primes p such that (r-p)/log(p) > 5, where r is the next prime after p.
(history; published version)

#11 by OEIS Server at Mon Nov 04 01:35:22 EST 2024

LINKS

Amiram Eldar, <a href="/A082890/b082890_1.txt">Table of n, a(n) for n = 1..10000</a>

#10 by Joerg Arndt at Mon Nov 04 01:35:22 EST 2024

STATUS

reviewed

approved

Discussion

Mon Nov 04

01:35

OEIS Server: Installed first b-file as b082890.txt.

#9 by Stefano Spezia at Mon Nov 04 01:05:58 EST 2024

STATUS

proposed

reviewed

#8 by Amiram Eldar at Mon Nov 04 00:46:40 EST 2024

STATUS

editing

proposed

#7 by Amiram Eldar at Mon Nov 04 00:30:51 EST 2024

EXAMPLE

If p = 492113 then r = 492227 and (r-p)/log(p) = 114/log(492113) = 8.69799..., so 492113 is in the sequence.

MATHEMATICA

seq[len_] := Module[{p = 2, s = {}, c = 0}, While[c < len, q = NextPrime[p]; If[q - p > 5*Log[p], AppendTo[s, p]; c++]; p = q]; s]; seq[31] (* Amiram Eldar, Nov 04 2024 *)

#6 by Amiram Eldar at Mon Nov 04 00:30:21 EST 2024

CROSSREFS

Cf. A082862, A082884-, A082885, A082886, A082888, A082889, A082891.

#5 by Amiram Eldar at Mon Nov 04 00:29:47 EST 2024

LINKS

Amiram Eldar, <a href="/A082890/b082890_1.txt">Table of n, a(n) for n = 1..10000</a>

STATUS

approved

editing

#4 by N. J. A. Sloane at Tue Oct 15 22:31:57 EDT 2013

AUTHOR

_Labos E. (labos(AT)ana.sote.hu), Elemer_, Apr 17 2003

Discussion

Tue Oct 15

22:31

OEIS Server: https://oeis.org/edit/global/2029

#3 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006

MATHEMATICA

Do[s=(Prime[n+1]-Prime[n])/Log[Prime[n]]//N; If[s>5, Print[Prime[n]]], {n, 1, 50000}]

KEYWORD

nonn,new

nonn

#2 by N. J. A. Sloane at Tue Jan 24 03:00:00 EST 2006

KEYWORD

nonn,new

nonn

AUTHOR

Labos E. (labos(AT)ana1ana.sote.hu), Apr 17 2003