|
%I #21 Sep 19 2019 19:48:22
%S 1,2,5,3,13,15,47,53,55,29,74,163,331,341,89,371,1499,513,4657,4837,
%T 4957,5029,55679,59639,12007,12139,12227,12491,87833,90605,454873,
%U 461803,467347,117703,59429,30292,121553,122323,61739,126943,254579,259199,259859
%N Numerator of Sum_{k=1..n} 1/lambda(k), where lambda(k) is the Carmichael's lambda function.
%H Amiram Eldar, <a href="/A211306/b211306.txt">Table of n, a(n) for n = 1..10000</a>
%e 1, 2, 5/2, 3, 13/4, 15/4, 47/12, 53/12, 55/12, 29/6, 74/15, 163/30, ...
%p with(numtheory): a:=n->numer(sum(1/lambda(k), k=1..n)): seq(a(n), n=1..50);
%t Numerator[Table[Sum[1/CarmichaelLambda[k],{k,1,n}],{n,1,50}]]
%t Numerator @ Accumulate @ Table[1 / CarmichaelLambda[n], {n, 1, 50}] (* _Amiram Eldar_, Sep 19 2019 *)
%Y Cf. A002322, A028415, A212716 (denominator).
%K nonn,frac
%O 1,2
%A _Michel Lagneau_, May 25 2012
|
