%I #4 May 10 2013 12:44:52
%S 0,1,2,2,3,4,3,4,5,4,6,5,6,5,7,6,8,7,6,8,7,9,8,10,7,9,8,10,9,11,8,10,
%T 12,9,11,10,12,9,11,13,10,12,14,11,13,10,12,14,11,13,15,12,14,11,16,
%U 13,15,12,14,16,13,15,12,17,14,16,13,18,15,17,14,16,13,18,15,17,14,19,16
%N Write A064476(n) = 2^i(n)*3^j(n); sequence gives values of i(n).
%o (ARIBAS): function a064514(maxarg: integer); var j: integer; ar: array; begin ar := p2p3(maxarg); for j := 0 to maxarg - 1 do write(ar[j][1]," "); end; end; a064514(85). For definition of function p2p3 see A064476.
%Y A064476, A064515.
%K nonn,easy
%O 1,3
%A _Vladeta Jovovic_, Oct 07 2001, Oct 07 2001
%E More terms from _Klaus Brockhaus_, Oct 12 2001
|