id:A059876 - OEIS Search Results

Search: id:A059876

Displaying 1-1 of 1 results found.

page 1

a(n) = bin_prime_sum(n). Maple code given below.

+0
8

2, 1, 3, 3, 5, 7, 9, -1, 1, 3, 5, 5, 7, 9, 11, 3, 5, 7, 9, 9, 11, 13, 15, 13, 15, 17, 19, 19, 21, 23, 25, -7, -5, -3, -1, -1, 1, 3, 5, 3, 5, 7, 9, 9, 11, 13, 15, 7, 9, 11, 13, 13, 15, 17, 19, 17, 19, 21, 23, 23, 25, 27, 29, -3, -1, 1, 3, 3, 5, 7, 9, 7, 9, 11, 13, 13, 15, 17, 19, 11, 13, 15, 17, 17, 19, 21, 23, 21, 23, 25, 27, 27, 29, 31, 33, 19, 21, 23, 25, 25, 27, 29, 31, 29, 31 (list; graph; listen)

	OFFSET	`1,1`
	MAPLE	with(numtheory); bin_prime_sum := proc(n) local i, s; s := floor_log_2(n); RETURN(((-1)^(n+1)) + add( (((-1)^(floor(n/(2^i))+1))ithprime(i)), i=1..s) + (`if`((1 = n), 1, ((`mod`((s+1), 2))ithprime(s)))) ); end;
	CROSSREFS	`Cf. A059871, A059872, A059873, A059877, A059878, A059880. E.g. A059876[A059873[n]] = A000040[n]` `Sequence in context: A101198 A034394 A058689 this_sequence A095354 A132883 A132888` `Adjacent sequences: A059873 A059874 A059875 this_sequence A059877 A059878 A059879`
	KEYWORD	`sign`
	AUTHOR	`Antti Karttunen Feb 05 2001`

page 1

Search completed in 0.002 seconds

Last modified November 25 08:46 EST 2009. Contains 167481 sequences.

AT&T Labs Research