id:A108103 - OEIS Search Results

Search: id:A108103

Displaying 1-1 of 1 results found.

page 1

A Fibonacci like substitution for three-symbol substitution with characteristic polynomial: x^3-2*x-1.

+0
1

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

	OFFSET	`0,2`
	COMMENT	`This sequence gives a three-symbol substitution for Benoit Cloture's A066983 Real Salem Roots: {{x -> -1.}, {x -> -0.618034}, {x -> 1.61803}}`
	FORMULA	`1->{3}, 2->{1}, 3->{1, 2, 1}`
	MATHEMATICA	`s[1] = {3}; s[2] = {1}; s[3] = {1, 2, 1}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] a = p[12]`
	CROSSREFS	`Cf. A000045, A066983.` `Sequence in context: A059130 A094959 A162696 this_sequence A111376 A157226 A156249` `Adjacent sequences: A108100 A108101 A108102 this_sequence A108104 A108105 A108106`
	KEYWORD	`nonn,uned`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 03 2005`

page 1

Search completed in 0.002 seconds

Last modified November 23 17:09 EST 2009. Contains 167438 sequences.

AT&T Labs Research