id:A107599 - OEIS Search Results

Search: id:A107599

Displaying 1-1 of 1 results found.

page 1

a(n) = 0,1,2 (resp.) if (1/2)[prime(n-1)+prime(n+1)] is less than, equal to or greater than prime(n) (resp.).

+0
1

2, 1, 2, 0, 2, 0, 2, 2, 0, 2, 0, 0, 2, 2, 1, 0, 2, 0, 0, 2, 0, 2, 2, 0, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 2, 1, 0, 2, 1, 0, 2, 0, 2, 0, 2, 1, 0, 0, 2, 2, 0, 2, 0, 1, 1, 0, 2, 0, 0, 2, 2, 0, 0, 2, 2, 0, 2, 0, 2, 2, 2, 0, 1, 0, 2, 2, 0, 2, 2, 0, 2, 0, 2, 0, 2, 2, 0, 0, 2, 2, 0, 0, 2, 0, 2, 2, 0, 2, 0 (list; graph; listen)

	OFFSET	`2,1`
	EXAMPLE	`Prime[100]=541, (Prime[100 - 1] + Prime[100 + 1])/2=(523+547)/2=535<541, hence a(100)=0.`
	MATHEMATICA	`Table[If[(Prime[n-1]+Prime[n+1])/2<Prime[n], 0, If[(Prime[n-1]+Prime[n+1])/2==Prime[n], 1, 2]], {n, 2, 100}]`
	CROSSREFS	`Sequence in context: A117167 A117169 A046920 this_sequence A156836 A079483 A071460` `Adjacent sequences: A107596 A107597 A107598 this_sequence A107600 A107601 A107602`
	KEYWORD	`nonn`
	AUTHOR	`Zak Seidov (zakseidov(AT)yahoo.com), May 17 2005`

page 1

Search completed in 0.005 seconds

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

AT&T Labs Research