A127511 a(n) = mu(n) * 2^(n-1).

1, -2, -4, 0, -16, 32, -64, 0, 0, 512, -1024, 0, -4096, 8192, 16384, 0, -65536, 0, -262144, 0, 1048576, 2097152, -4194304, 0, 0, 33554432, 0, 0, -268435456, -536870912, -1073741824, 0, 4294967296, 8589934592, 17179869184, 0, -68719476736, 137438953472, 274877906944, 0, -1099511627776

Offset

1,2

Comments

Row sums of A127512.

Appears to be the determinant of A156734 where the element in the lower right corner has been swapped with the element in the upper right corner. - Mats Granvik, Feb 14 2009

Links

Table of n, a(n) for n=1..41.

Formula

a(n)=A008683(n)*A000079(n-1). - R. J. Mathar, May 19 2007

Example

a(5) = (-1)*16 = -16 since mu(5) = -1 and 2^4 = 16.

Maple

A127511 := proc(n) 2^(n-1)*numtheory[mobius](n) ; end: for n from 1 to 50 do printf("%d, ", A127511(n)) ; od ; # R. J. Mathar, May 19 2007

Mathematica

Array[MoebiusMu[#]*2^(#-1)&, 41] (* James C. McMahon, Jan 02 2025 *)

Crossrefs

Cf. A008683, A127512.

Sequence in context: A106603 A059057 A196225 * A321956 A173315 A205975

Adjacent sequences: A127508 A127509 A127510 * A127512 A127513 A127514

Keyword

sign,easy,changed

Author

Gary W. Adamson, Jan 17 2007

Extensions

More terms from R. J. Mathar, May 19 2007

Status

approved