id:A140591 - OEIS Search Results

Search: id:A140591

Displaying 1-1 of 1 results found.

page 1

Binary projection of A004001: a(n)=If[(-1)^A004002[n]==1,0,1].

+0
1

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

	OFFSET	`1,1`
	COMMENT	`I made this to compare to the Thue -Morse sequence: A010060;` `This sequence has longer runs of 1's and 0's than Thue-Morse.` `It also suggests an odd even type projection of the Tue-Morse:` `a(n)=If[A01006[n]==0,2n,2n+1]`
	FORMULA	`a(n)]=If[(-1)^A004002[n]==1,0,1]`
	MATHEMATICA	`(A004001) f[0] = 0; f[1] = 1; f[2] = 1; f[n_] := f[n] = f[f[n - 1]] + f[n - f[n - 1]]; Table[If[(-1)^f[n] == 1, 0, 1], {n, 0, 100}]`
	CROSSREFS	`Cf. A004001, A010060.` `Sequence in context: A023959 A076182 A010058 this_sequence A079336 A057215 A029691` `Adjacent sequences: A140588 A140589 A140590 this_sequence A140592 A140593 A140594`
	KEYWORD	`nonn,uned`
	AUTHOR	`Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Jul 06 2008`

page 1

Search completed in 0.002 seconds

Last modified November 24 19:42 EST 2009. Contains 167435 sequences.

AT&T Labs Research