The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A089657

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

A089657

Let g[n]=Floor[Prime[n]-n)/((n-PrimePi[n])], then a(n) = Floor[(Prime[n]+g[n]*PrimePi[n])/(1+g[n]).
(history; published version)

#14 by Joerg Arndt at Sun Dec 18 02:31:38 EST 2022

STATUS

reviewed

approved

#13 by Michel Marcus at Sun Dec 18 01:40:03 EST 2022

STATUS

proposed

reviewed

#12 by Joerg Arndt at Sun Dec 18 01:39:50 EST 2022

STATUS

editing

proposed

#11 by Joerg Arndt at Sun Dec 18 01:39:47 EST 2022

COMMENTS

A chop-chop broken line function using the weighted average function of primes and their distribution that is log like. When the floors are left out it reproduces n exactly: the two uses of Floor[] functions chop it twice to give a broken line that is chaotic.

MATHEMATICA

g[n_] = Floor[(Prime[n] - n)/(n - PrimePi[n])];

g[n_] = Floor[(Prime[n] - n)/(n - PrimePi[n])]; digits = 200; a = Table[Floor[(Prime[n] + g[n]*PrimePi[n])/(1 + g[n])], {n, 1, digits200}]

KEYWORD

nonn,less

STATUS

approved

editing

#10 by Russ Cox at Fri Mar 30 17:34:14 EDT 2012

AUTHOR

_Roger L. Bagula (rlbagulatftn(AT)yahoo.com), _, Jan 04 2004

Discussion

Fri Mar 30

17:34

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

#9 by Russ Cox at Fri Mar 30 16:49:50 EDT 2012

EXTENSIONS

Edited by _N. J. A. Sloane (njas(AT)research.att.com), _, Apr 28 2006

Discussion

Fri Mar 30

16:49

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

#8 by N. J. A. Sloane at Fri Feb 27 03:00:00 EST 2009

KEYWORD

nonn,new

nonn

EXTENSIONS

Edited by N. J. A. Sloane (njas, (AT)research.att.com), Apr 28 2006

#7 by N. J. A. Sloane at Fri May 11 03:00:00 EDT 2007

KEYWORD

nonn,new

nonn

AUTHOR

Roger L. Bagula (tftnrlbagulatftn(AT)earthinkyahoo.netcom), Jan 04 2004

#6 by N. J. A. Sloane at Fri May 19 03:00:00 EDT 2006

NAME

A chop-chop broken line function using the weighted average function of primes and their distribution that is log like.

Let g[n]=Floor[Prime[n]-n)/((n-PrimePi[n])], then a(n) = Floor[(Prime[n]+g[n]*PrimePi[n])/(1+g[n]).

COMMENTS

FORMULA

g[n]=Floor[Prime[n]-n)/((n-PrimePi[n])] a(n) = Floor[(Prime[n]+g[n]*PrimePi[n])/(1+g[n])

MATHEMATICA

g[n_] = Floor[(Prime[n] - n)/((n - PrimePi[n])] ; digits = 200 ; a = Table[Floor[(Prime[n] + g[n]*PrimePi[n])/(1 + g[n]), ], {n, 1, digits}]

KEYWORD

nonn,uned,new

nonn

EXTENSIONS

Edited by njas, Apr 28 2006

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

MATHEMATICA

g[n_]=Floor[Prime[n]-n)/((n-PrimePi[n])] digits=200 a=Table[Floor[(Prime[n]+g[n]*PrimePi[n])/(1+g[n]), {n, 1, digits}]

KEYWORD

nonn,uned,new