|
|
A143408
|
|
Number of numbers k such that the reduced totient function psi(k) = A002174(n).
|
|
6
|
|
|
2, 6, 12, 16, 4, 8, 84, 32, 40, 32, 8, 20, 20, 64, 8, 480, 80, 48, 12, 8, 160, 20, 16, 4, 8, 1216, 8, 64, 16, 872, 24, 160, 8, 532, 52, 120, 12, 424, 100, 24, 4, 8, 944, 24, 144, 12, 1912, 272, 8, 16, 276, 24, 64, 144, 1856, 20, 96, 1276, 40, 112, 12, 8, 116, 20, 16, 96, 8
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(n) is the number of divisors of A143407(n) that are not divisors of A143407(r) for r<n.
|
|
LINKS
|
|
|
EXAMPLE
|
Because A002174(5)=8 and psi(k)=8 for k=32,96,160,480, we have a(5)=4.
|
|
PROG
|
(PARI) a079612(n) = {if (n%2, 2, res = 1; forprime(p=2, n+1, if (!(n % (p-1)), t = valuation(n, p); if (p==2, if (t, res *= p^(t+2)), res *= p^(t+1)); ); ); res; ); }
nb(n) = sumdiv(n, d, moebius(n/d)*numdiv(a079612(d)));
lista(nn) = for (n=1, nn, if (nbs = nb(n), print1(nbs, ", "))); \\ Michel Marcus, May 12 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|