login
Write A064476(n) = 2^i(n)*3^j(n); sequence gives values of j(n).
3

%I #4 May 10 2013 12:44:52

%S 0,1,1,2,2,2,3,3,3,4,3,4,4,5,4,5,4,5,6,5,6,5,6,5,7,6,7,6,7,6,8,7,6,8,

%T 7,8,7,9,8,7,9,8,7,9,8,10,9,8,10,9,8,10,9,11,8,10,9,11,10,9,11,10,12,

%U 9,11,10,12,9,11,10,12,11,13,10,12,11,13,10,12,11,13,10,12,14,11,13,12

%N Write A064476(n) = 2^i(n)*3^j(n); sequence gives values of j(n).

%o (ARIBAS): function a064515(maxarg: integer); var j: integer; ar: array; begin ar := p2p3(maxarg); for j := 0 to maxarg - 1 do write(ar[j][2]," "); end; end; a064515(95). For definition of function p2p3 see A064476.

%Y A064476, A064514.

%K nonn,easy

%O 1,4

%A _Vladeta Jovovic_, Oct 07 2001, Oct 07 2001

%E More terms from _Klaus Brockhaus_, Oct 12 2001