A062007 a(n) = mu(n)*prime(n).

2, -3, -5, 0, -11, 13, -17, 0, 0, 29, -31, 0, -41, 43, 47, 0, -59, 0, -67, 0, 73, 79, -83, 0, 0, 101, 0, 0, -109, -113, -127, 0, 137, 139, 149, 0, -157, 163, 167, 0, -179, -181, -191, 0, 0, 199, -211, 0, 0, 0, 233, 0, -241, 0, 257, 0, 269, 271, -277, 0, -283, 293, 0, 0, 313, -317, -331, 0, 347, -349, -353, 0, -367, 373, 0

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n=1..1000

Mathematica

Table[MoebiusMu[n]*Prime[n], {n, 100}] (* G. C. Greubel, May 03 2022 *)

Prog

(PARI) q=[]; for(n=1, 200, q=concat(q, moebius(n)*prime(n))); q
(SageMath) [moebius(n)*nth_prime(n) for n in (1..100)] # G. C. Greubel, May 03 2022

Crossrefs

Cf. A000040, A008683.

Sequence in context: A240979 A368819 A171034 * A031067 A300392 A335706

Adjacent sequences: A062004 A062005 A062006 * A062008 A062009 A062010

Keyword

easy,sign

Author

Jason Earls, Jul 04 2001

Status

approved