%I #8 Oct 27 2015 10:13:25
%S 3,2,4,7,10,14,16,19,23,30,30,37,40,44,48,53,58,61,66,71,74,80,82,89,
%T 97,102,103,107,108,112,126,131,138,140,150,151,156,164,168,173,178,
%U 180,190,193,197,200,210,223,227
%N n-th prime + mu(n).
%p with(numtheory): f := n->ithprime(n)+mobius(n); [ seq(f(i),i=1..80) ];
%t Table[Prime[n]+MoebiusMu[n],{n,50}] (* _Harvey P. Dale_, Oct 27 2015 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_.
|