OFFSET
1,3
LINKS
N. J. A. Sloane, Transforms.
FORMULA
Multiplicative with a(p^e) = [(p-1)/2][(p+1)/2]^(e-1). - David W. Wilson, Sep 01 2001
EXAMPLE
The Möbius transform begins 1,0,1,0,2,0,3,0,2,0,5,0,6,0,2,0,8,0,9,0,3,0,11,0,...
MATHEMATICA
f[p_, e_] := ((p - 1)/2) ((p + 1)/2)^(e - 1); a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[2*n - 1]; Array[a, 100] (* Amiram Eldar, Nov 03 2023 *)
PROG
(PARI) a(n) = {my(f = factor(2*n-1)); for (i=1, #f~, p = f[i, 1]; f[i, 1] = (p-1)/2*((p+1)/2)^(f[i, 2]-1); f[i, 2] = 1); factorback(f); } \\ Michel Marcus, Feb 27 2015
CROSSREFS
KEYWORD
nonn,easy,mult
AUTHOR
EXTENSIONS
More terms from Reiner Martin, Aug 15 2001
Further terms from David W. Wilson, Aug 29 2001
STATUS
approved