1,2

A033498 := proc(n) option remember; if n <= 1 then 1 else A033498(n-1)+A033498(round(2*(n-1)/3))+A033498(round((n-1)/3)); fi; end;

Sequence in context: A025207 A027688 A118403 this_sequence A147493 A147509 A057259

Adjacent sequences: A033495 A033496 A033497 this_sequence A033499 A033500 A033501

nonn

N. J. A. Sloane (njas(AT)research.att.com).