A138037 a(0) = 0, a(n+1) = n + a(n)/(2 - a(n) mod 2).

0, 1, 3, 6, 7, 12, 12, 13, 21, 30, 25, 36, 30, 28, 28, 29, 45, 62, 49, 68, 54, 48, 46, 46, 47, 72, 62, 58, 57, 86, 73, 104, 84, 75, 109, 144, 108, 91, 129, 168, 124, 103, 145, 188, 138, 114, 103, 150, 123, 172, 136, 119, 171, 224, 166, 138, 125, 182, 149, 208, 164, 143

Offset

0,3

Comments

A138038 and A138039 respectively give record values and where they occur.

Links

R. Zumkeller, Table of n, a(n) for n = 0..1000

Maple

a[0]:= 0:
for n from 0 to 100 do  a[n+1] := n + a[n]/(2 - (a[n] mod 2)) od:
seq(a[n], n=0..101); # Robert Israel, Jan 12 2016

Mathematica

a[0] = 0; a[n_] := n - 1 + a[n - 1]/(2 - Mod[a[n - 1], 2]); Table[a@ n, {n, 20}] (* Michael De Vlieger, Jan 12 2016 *)
nxt[{n_, a_}]:={n+1, n+1+a/(2-Mod[a, 2] )}; NestList[nxt, {0, 0}, 70][[All, 2]] (* Harvey P. Dale, Sep 28 2016 *)

Crossrefs

Sequence in context: A084125 A053478 A269363 * A209246 A073934 A333790

Adjacent sequences: A138034 A138035 A138036 * A138038 A138039 A138040

Keyword

nonn

Author

Reinhard Zumkeller, Mar 02 2008

Status

approved