|
%I #3 Sep 24 2013 00:41:42
%S 6,8,9,12,11,13,13,17,14,24,16,21,17,25,16,36,17,29,22,33,22,33,24,19,
%T 26,38,21,60,20,45,29,26,29,49,31,53,32,57,23,84,27,54,40,58,36,61,23,
%U 34,29,73,28,69,24,38,44,81,43,120,45,74,45,31,28,85,37,93,35,97,26,144
%N a(n)=IntegerLog(n-1)+IntegerLog(n+1), where IntegerLog(n)=A001414(n).
%e a(3)=ilog(2)+ilog(4)=(2*1)+(2*2)=6.
%e a(13)=ilog(12)+ilog(14)=(2*2+3*1)+(2*1+7*1)=16.
%t iLn = Dot @@ Transpose[FactorInteger[ # ]] &; NiLn = iLn[ # - 1] + iLn[ # + 1] &; Map[NiLn, Range[3, 200]]
%K nonn
%O 3,1
%A _Carlos Alves_, Dec 02 2006
|
