|
Search: id:A064176
|
|
| |
|
| 1, 6, 8, 10, 12, 14, 15, 18, 20, 21, 22, 26, 27, 28, 32, 33, 34, 35, 36, 38, 39, 44, 45, 46, 48, 50, 51, 52, 55, 57, 58, 62, 63, 64, 65, 68, 69, 74, 75, 76, 77, 80, 82, 85, 86, 87, 91, 92, 93, 94, 95, 98, 99, 100, 106, 111, 112, 115, 116, 117, 118, 119, 120, 122, 123, 124
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
The Moebius inversion formula seems to also hold for iMoebiusMu[].
|
|
REFERENCES
|
J. Lambek and L. Moser, On some two way classifications of integers, Canad. Math. Bull. 2 (1959), 85-89.
J. Roberts, Lure of the Integers, Math. Assoc. America, 1992, p. 22.
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=1..10000
|
|
EXAMPLE
|
mu[45]=0 but iMoebiusMu[45]=1 because 45 = 3^2 * 5^1 and the binary digits of 2 and 1 add up to 2, an even number.
|
|
MATHEMATICA
|
iMoebiusMu[ n_ ] := Switch[ MoebiusMu[ n ], 1, 1, -1, -1, 0, If[ OddQ[ Plus@@(DigitCount[ Last[ Transpose[ FactorInteger[ n ] ] ], 2, 1 ]) ], -1, 1 ] ];
|
|
CROSSREFS
|
Complement of A064175. Cf. A000028, A000379.
Sequence in context: A089229 A123240 A131181 this_sequence A000379 A065985 A060652
Adjacent sequences: A064173 A064174 A064175 this_sequence A064177 A064178 A064179
|
|
KEYWORD
|
nonn,nice,easy
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), Sep 17 2001
|
|
|
Search completed in 0.002 seconds
|
