id:A086910 - OEIS Search Results

Search: id:A086910

Displaying 1-1 of 1 results found.

page 1

a[1]=1; a[n] =1+Abs[Prime[n]-a[n-1]]

+0
1

1, 3, 3, 5, 7, 7, 11, 9, 15, 15, 17, 21, 21, 23, 25, 29, 31, 31, 37, 35, 39, 41, 43, 47, 51, 51, 53, 55, 55, 59, 69, 63, 75, 65, 85, 67, 91, 73, 95, 79, 101, 81, 111, 83, 115, 85, 127, 97, 131, 99, 135, 105, 137, 115, 143, 121, 149, 123, 155, 127, 157, 137, 171, 141, 173, 145 (list; graph; listen)

	OFFSET	`1,2`
	COMMENT	`This sequence behaves like a batrachian chaotic sequence.`
	MATHEMATICA	`digits=200 P[n_Integer?Positive] := P[n] =1+Abs[Prime[n]-P[n-1]] P[1] = 1 a1=Table[Floor[P[n]], {n, 1, digits}]`
	CROSSREFS	`Sequence in context: A110246 A070543 A050826 this_sequence A101300 A076524 A050824` `Adjacent sequences: A086907 A086908 A086909 this_sequence A086911 A086912 A086913`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 24 2003`

page 1

Search completed in 0.003 seconds

Last modified November 25 20:09 EST 2009. Contains 167514 sequences.

AT&T Labs Research