A074711 Moebius function applied to A000461.

1, 1, 0, 0, -1, 0, -1, 0, 0, 1, 0, 0, 1, -1, 0, 0, 1, 0, -1, 0, 0, 0, 1

Offset

0,1

Links

Table of n, a(n) for n=0..22.

Maple

Lkst := proc(n): round(evalf(floor(log10(10*n)))); end; Akst := proc(n): n*(10^(n*Lkst(n))-1)/(10^Lkst(n)-1); end; with(numtheory): [seq(mobius(Akst(i)), i=1..23)];

Crossrefs

Cf. A000461.

Sequence in context: A360120 A361022 A341754 * A004585 A319448 A365428

Adjacent sequences: A074708 A074709 A074710 * A074712 A074713 A074714

Keyword

easy,sign

Author

Jani Melik, Oct 01 2002

Status

approved