A214127 a(2n) = a(n-1) + a(n) and a(2n+1) = a(n+1) for n>=1, with a(0)=1, a(1)=2.

1, 2, 3, 3, 5, 3, 6, 5, 8, 3, 8, 6, 9, 5, 11, 8, 13, 3, 11, 8, 11, 6, 14, 9, 15, 5, 14, 11, 16, 8, 19, 13, 21, 3, 16, 11, 14, 8, 19, 11, 19, 6, 17, 14, 20, 9, 23, 15, 24, 5, 20, 14, 19, 11, 25, 16, 27, 8, 24, 19, 27, 13, 32, 21, 34, 3, 24, 16, 19, 11, 27, 14, 25

Offset

0,2

Links

Table of n, a(n) for n=0..72.

Mathematica

t = {1, 2}; Do[If[EvenQ[n], AppendTo[t, t[[n/2]] + t[[n/2 + 1]]], AppendTo[t, t[[(n + 3)/2]]]], {n, 2, 100}]; t (* T. D. Noe, Jul 11 2012 *)

Prog

(Python)
a = [1]*(77*2)
a[1]=2
for n in range(1, 77):
    a[2*n  ]=a[n-1]+a[n]
    a[2*n+1]=a[n+1]
    print(str(a[n-1]), end=', ')

Crossrefs

Cf. A120562: same formula, seed {0,1}, first term removed.

Cf. A082498: same formula, seed {1,0}, first term removed.

Cf. A214126: same formula, seed {1,1}.

Sequence in context: A071049 A171637 A140187 * A381934 A111607 A327124

Adjacent sequences: A214124 A214125 A214126 * A214128 A214129 A214130

Keyword

nonn,easy

Author

Alex Ratushnyak, Jul 04 2012

Status

approved