id:A089680 - OEIS Search Results

Search: id:A089680

Displaying 1-1 of 1 results found.

page 1

Let g[n_]=(Prime[n]-n)/(n-PrimePi[n]). Then a(n) = Floor[Exp[((g[n]+g[n+1])-g[n*(n+1)]+1)/1.5]].

+0
1

3, 3, 1, 2, 4, 3, 3, 1, 2, 2, 3, 4, 4, 2, 2, 3, 4, 4, 4, 3, 2, 3, 3, 3, 3, 3, 2, 2, 2, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 3 (list; graph; listen)

	OFFSET	`1,1`
	COMMENT	`Exponential version of log like weighted average function of primes and the prime distribution.`
	MATHEMATICA	`digits=200 g[n_]=(Prime[n]-n)/(n-PrimePi[n]) b=Table[Floor[Exp[((g[n]+g[n+1])-g[n*(n+1)]+1)/1.5]], {n, 1, digits}]`
	CROSSREFS	`Sequence in context: A096836 A096995 A010264 this_sequence A160326 A123561 A133695` `Adjacent sequences: A089677 A089678 A089679 this_sequence A089681 A089682 A089683`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 04 2004`

page 1

Search completed in 0.002 seconds

Last modified November 23 10:40 EST 2009. Contains 167421 sequences.

AT&T Labs Research