id:A147981 - OEIS Search Results

Search: id:A147981

Displaying 1-1 of 1 results found.

page 1

A Slow chaotic sequence using A004001 and the modulo three A147952: a(n)=A147952(A004001(n)).

+0
1

0, 1, 1, 1, 1, 2, 2, 2, 2, 3, 2, 3, 3, 4, 4, 4, 4, 3, 3, 5, 3, 3, 4, 5, 5, 4, 4, 4, 5, 5, 5, 5, 5, 7, 4, 4, 6, 4, 4, 4, 8, 4, 4, 6, 6, 6, 4, 4, 4, 4, 8, 8, 4, 4, 4, 6, 6, 6, 6, 10, 10, 10, 10, 10, 10, 5, 6, 7, 4, 5, 9, 9, 5, 5, 8, 6, 6, 7, 7, 5, 5, 5, 10, 10, 6, 6, 6, 6, 7, 5, 5, 6, 8, 8, 4, 4, 4, 6, 8, 8, 4 (list; graph; listen)

	OFFSET	`0,6`
	COMMENT	`The Fernandez sequence of this has ratio at n=100:1.1521476591741213.`
	FORMULA	`a(n)=A147952(A004001(n)).`
	MATHEMATICA	`(A004001) g[0] = 0; g[1] = 1; g[2] = 1; g[n_] := g[n] = g[g[n - 1]] + g[n - g[n - 1]]; (A147952) f[0] = 0; f[1] = 1; f[2] = 1; f[n_] := f[n] = f[f[n - 2]] + If[Mod[n, 3] == 0, f[f[n/3]], If[Mod[n, 3] ==1, f[f[(n - 1)/3]], f[n - f[(n - 2)/3]]]]; Table[f[g[n]], {n, 0, 100}]`
	CROSSREFS	`Sequence in context: A029383 A070098 A029233 this_sequence A051888 A088019 A126759` `Adjacent sequences: A147978 A147979 A147980 this_sequence A147982 A147983 A147984`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 18 2008`

page 1

Search completed in 0.002 seconds

Last modified December 15 00:47 EST 2009. Contains 170825 sequences.

AT&T Labs Research