|
|
A100112
|
|
If n is the k-th squarefree number then a(n) = k, otherwise a(n) = 0.
|
|
12
|
|
|
1, 2, 3, 0, 4, 5, 6, 0, 0, 7, 8, 0, 9, 10, 11, 0, 12, 0, 13, 0, 14, 15, 16, 0, 0, 17, 0, 0, 18, 19, 20, 0, 21, 22, 23, 0, 24, 25, 26, 0, 27, 28, 29, 0, 0, 30, 31, 0, 0, 0, 32, 0, 33, 0, 34, 0, 35, 36, 37, 0, 38, 39, 0, 0, 40, 41, 42, 0, 43, 44, 45, 0, 46, 47, 0, 0, 48, 49, 50, 0, 0, 51, 52, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a[n_] := Sum[MoebiusMu[LCM[n, k]]^2, {k, 1, n}];
|
|
PROG
|
(PARI) a(n)=sum(k=1, n, moebius(lcm(n, k))^2) \\ Benoit Cloitre, Jun 14 2007
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|