id:A090485 - OEIS Search Results

Search: id:A090485

Displaying 1-1 of 1 results found.

page 1

a(n) = Floor[(Exp[n/PrimePi[n]]-1)/Log[n]].

+0
1

9, 3, 4, 2, 3, 2, 3, 3, 4, 3, 4, 3, 3, 4, 4, 3, 4, 3, 3, 4, 4, 3, 4, 4, 5, 5, 6, 5, 5, 4, 5, 5, 5, 6, 7, 5, 6, 6, 7, 6, 6, 5, 5, 6, 6, 5, 6, 6, 6, 7, 7, 6, 7, 7, 7, 8, 8, 7, 8, 6, 7, 7, 8, 8, 9, 7, 8, 8, 9, 7, 8, 7, 7, 8, 8, 8, 9, 8, 8, 8, 9, 8, 8, 8, 9, 9, 10, 8, 9, 9, 9, 10, 10, 11, 11, 10, 10, 11, 11, 10 (list; graph; listen)

	OFFSET	`2,1`
	COMMENT	`The Shannon signal power of the distribution of the Primes.`
	REFERENCES	`C. E. Shannon, The Mathematical Theory of Communication, page 100.`
	MATHEMATICA	`digits=200 f[n_]=Floor[(Exp[n/PrimePi[n]]-1)/Log[n]] a=Table[f[n], {n, 2, digits}]`
	CROSSREFS	`Adjacent sequences: A090482 A090483 A090484 this_sequence A090486 A090487 A090488` `Sequence in context: A019878 A097902 A139425 this_sequence A021521 A011011 A070634`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 01 2004`

page 1

Search completed in 0.002 seconds

Last modified October 7 14:39 EDT 2008. Contains 144666 sequences.

AT&T Labs Research