OFFSET
0,3
MATHEMATICA
RecurrenceTable[{a[0]==0, a[1]==1, a[2]==2, a[n]==a[n-1]+Floor[(a[n-2]+ a[n-3])/2]}, a, {n, 50}] (* Harvey P. Dale, Aug 25 2014 *)
PROG
(PARI) a(n) = if (n < 3, n, a(n-1) + (a(n-2)+a(n-3))\2) \\ Michel Marcus, Jul 10 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Jul 01 2012
STATUS
approved