A214041 a(n) = a(n-1) + floor((a(n-2) + a(n-3))/2), with a(n)=1 for n < 3.

1, 1, 1, 2, 3, 4, 6, 9, 14, 21, 32, 49, 75, 115, 177, 272, 418, 642, 987, 1517, 2331, 3583, 5507, 8464, 13009, 19994, 30730, 47231, 72593, 111573, 171485, 263568, 405097, 622623, 956955, 1470815, 2260604, 3474489, 5340198, 8207744, 12615087, 19389058

Offset

0,4

Comments

a(n) = A022875(n) for 1 < n < 15.

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Mathematica

nxt[{a_, b_, c_}]:={b, c, c+Floor[(a+b)/2]}; NestList[nxt, {1, 1, 1}, 50][[All, 1]] (* Harvey P. Dale, Jun 14 2020 *)

Prog

(Python)
ppp=prpr=prev=1
for n in range(65):
    cur=prev+(prpr+ppp)//2
    print(str(ppp), end=', ')
    ppp, prpr, prev = prpr, prev, cur

Crossrefs

Cf. A022875, A214039, A214040.

Sequence in context: A143951 A328262 A292800 * A058355 A179041 A099558

Adjacent sequences: A214038 A214039 A214040 * A214042 A214043 A214044

Keyword

nonn

Author

Alex Ratushnyak, Jul 01 2012

Status

approved