login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A086910 a[1]=1; a[n] =1+Abs[Prime[n]-a[n-1]] 0
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; refs; listen; history; internal format)
OFFSET

1,2

COMMENTS

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: A196372 A168053 A050826 * A101300 A172290 A076524

Adjacent sequences:  A086907 A086908 A086909 * A086911 A086912 A086913

KEYWORD

nonn

AUTHOR

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 24 2003

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 14 23:53 EST 2012. Contains 205689 sequences.