cp's OEIS Frontend

A061984 a(n) = 1 + a([n/2]) + a([n/3]) with a(0) = 0.

%I A061984 #7 Jan 11 2014 18:05:55
%S A061984 0,1,2,3,4,4,6,6,7,8,8,8,11,11,11,11,12,12,15,15,15,15,15,15,19,19,19,
%T A061984 20,20,20,20,20,21,21,21,21,27,27,27,27,27,27,27,27,27,27,27,27,32,32,
%U A061984 32,32,32,32,36,36,36,36,36,36,36,36,36,36,37,37,37,37,37,37,37,37,47
%N A061984 a(n) = 1 + a([n/2]) + a([n/3]) with a(0) = 0.
%C A061984 If n = 2^a*3^b, then a(n)-a(n-1) = C(a+b, a). - _David Wasserman_, Nov 17 2005
%H A061984 Reinhard Zumkeller, <a href="/A061984/b061984.txt">Table of n, a(n) for n = 0..10000</a>
%o A061984 (Haskell)
%o A061984 a061984 n = a061984_list !! n
%o A061984 a061984_list = 0 : map (+ 1) (zipWith (+)
%o A061984    (map (a061984 . (`div` 2)) [1..]) (map (a061984 . (`div` 3)) [1..]))
%o A061984 -- _Reinhard Zumkeller_, Jan 11 2014
%Y A061984 Cf. A061980, A061985, A061986, A061987.
%Y A061984 Cf. A007731.
%K A061984 nonn
%O A061984 0,3
%A A061984 _Henry Bottomley_, May 24 2001