|
%I #12 May 05 2022 07:29:04
%S 1,3,6,8,13,14,21,23,26,27,38,39,52,53,54,56,73,74,93,94,95,96,119,
%T 120,125,126,129,130,159,160,191,193,194,195,196,197,234,235,236,237,
%U 278,279,322,323,324,325,372,373,380,381,382,383,436,437,438,439,440,441
%N a(n) = Sum_{k=1..n} A014963(k).
%C Is there an expression for lim_{n -> infinity} a(n)/n^2?
%C Equals row sums of triangle A140582. - _Gary W. Adamson_, May 17 2008
%H Amiram Eldar, <a href="/A072107/b072107.txt">Table of n, a(n) for n = 1..10000</a>
%t Accumulate[Table[Exp[MangoldtLambda[n]], {n, 1, 60}]] (* _Amiram Eldar_, May 05 2022 *)
%o (PARI) for(n=2,100,print1(1+sum(k=2,n,if(if(omega(k)-1,0,1)*component(component(factor(k),1),1),if(omega(k)-1,0,1)*component(component(factor(k),1),1),1)),","))
%Y Cf. A140582, A014963.
%K easy,nonn
%O 1,2
%A _Benoit Cloitre_, Jun 19 2002
|
