OFFSET
1,7
COMMENTS
Lambda is the function in A002322.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
a(19) = 3 because lambda(19) = 18 and the 3 odd divisors are {1, 3, 9}.
MATHEMATICA
f[n_] := Block[{d = Divisors[CarmichaelLambda[n]]}, Count[OddQ[d], True]]; Table[f[n], {n, 80}]
PROG
(Haskell)
a193169 = length . filter odd . a027750_row . a002322
-- Reinhard Zumkeller, Sep 02 2014
(PARI) a(n) = sumdiv(lcm(znstar(n)[2]), d, (d%2)); \\ Michel Marcus, Mar 18 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Jul 22 2011
STATUS
approved