This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A158185 Let b(n) the sequence of zero plus the natural numbers (0+A000027). At any step n=1,2,3,4,... add b(n-1) to the number in position n+b(n). 0
 1, 2, 3, 5, 5, 8, 7, 8, 12, 15, 11, 12, 13, 27, 15, 23, 17, 18, 19, 20, 29, 37, 23, 35, 37, 38, 27, 28, 29, 57, 31, 32, 33, 57, 35, 53, 37, 56, 54, 59, 54, 42, 43, 44, 45, 83, 47, 48, 49, 70, 51, 52, 53, 92, 55, 83, 57, 86, 111, 60, 61, 154, 63, 132, 65, 98, 67, 68, 69, 127, 71 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS EXAMPLE Start from b(n)=0,1,2,3,4,5,6,7,8,9,10,...... [n(0)=0]. First step n=1: add b(n-1)=b(0)=0 to n+b(n)=2 (practically no change). Second step n=2: add b(n-1)=b(1)=1 to n+b(n)=4 -> 0,1,2,3,5,5,6,7,8,9,... Third step n=3: add b(n-1)=b(2)=2 to n+b(n)=6 -> 0,1,2,3,5,5,8,7,8,9,... Fourth step n=4: add b(n-1)=b(3)=3 to n+b(n)=8 -> 0,1,2,3,5,5,8,7,8,12,... Etc. MAPLE P:=proc(i) local n, v; v:=array(1..i); for n from 1 by 1 to i do v[n]:=n; od; for n from 2 by 1 to 200 do v[v[n]+n]:=v[v[n]+n]+v[n-1]; od; for n from 1 by 1 to 200 do print(v[n]); od; end: P(1000); CROSSREFS Sequence in context: A053148 A295798 A072728 * A095413 A134871 A267453 Adjacent sequences:  A158182 A158183 A158184 * A158186 A158187 A158188 KEYWORD easy,nonn AUTHOR Paolo P. Lava & Giorgio Balzarotti, Mar 13 2009 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 20 11:28 EDT 2019. Contains 325180 sequences. (Running on oeis4.)