3,1

Table of n, a(n) for n=3..72.

a(3)=ilog(2)+ilog(4)=(2*1)+(2*2)=6.

a(13)=ilog(12)+ilog(14)=(2*2+3*1)+(2*1+7*1)=16.

iLn = Dot @@ Transpose[FactorInteger[ # ]] &; NiLn = iLn[ # - 1] + iLn[ # + 1] &; Map[NiLn, Range[3, 200]]

Sequence in context: A123704 A045574 A074284 * A030725 A195101 A337381

Adjacent sequences: A125733 A125734 A125735 * A125737 A125738 A125739

nonn

Carlos Alves, Dec 02 2006

approved