The On-Line Encyclopedia of Integer Sequences® (OEIS®)

Revision History for A089175 (Underlined text is an addition; strikethrough text is a ~~deletion~~.)
Showing all changes.

A089175

a(n) = Floor[Sqrt[Prime[n]*PrimePi[n]]]
(history; published version)

#4 by Russ Cox at Fri Mar 30 17:34:13 EDT 2012

AUTHOR

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

Discussion
Fri Mar 30	17:34	OEIS Server: https://oeis.org/edit/global/158

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

MATHEMATICA

digits=200 a=Table[Floor[Sqrt[Prime[n]*PrimePi[n]]], {]]], {n, , 1, , digits}]

KEYWORD

nonn,new

nonn

#2 by N. J. A. Sloane at Sat Apr 09 03:00:00 EDT 2005

KEYWORD

nonn,new

nonn

AUTHOR

Roger L. Bagula (tftnrlbagulatftn(AT)earthlinkyahoo.netcom), Jan 03 2004

#1 by N. J. A. Sloane at Thu Feb 19 03:00:00 EST 2004

	NAME	`a(n) = Floor[Sqrt[Prime[n]*PrimePi[n]]]`
	DATA	`0, 1, 3, 3, 5, 6, 8, 8, 9, 10, 12, 13, 15, 16, 16, 17, 20, 20, 23, 23, 24, 25, 27, 28, 29, 30, 30, 31, 33, 33, 37, 37, 38, 39, 40, 40, 43, 44, 44, 45, 48, 48, 51, 51, 52, 52, 56, 57, 58, 58, 59, 59, 62, 63, 64, 64, 65, 65, 68, 69, 71, 72, 74, 74, 75, 75, 79, 80, 81, 81, 84, 84`
	OFFSET	`1,3`
	COMMENTS	`Geometric mean of primes and their distribution function.`
	MATHEMATICA	`digits=200 a=Table[Floor[Sqrt[Prime[n]*PrimePi[n]]], {n, 1, digits}]`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (tftn(AT)earthlink.net), Jan 03 2004`
	STATUS	`approved`

Last modified August 29 18:55 EDT 2024. Contains 375518 sequences. (Running on oeis4.)