|
|
|
|
20, 28, 44, 52, 68, 76, 92, 99, 100, 116, 117, 124, 148, 153, 164, 171, 172, 188, 196, 207, 212, 236, 244, 261, 268, 272, 279, 284, 292, 304, 316, 332, 333, 356, 368, 369, 387, 388, 404, 412, 423, 428, 436, 452, 464, 477, 484, 496, 500, 508, 524, 531, 548, 549, 556, 592, 596
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
For powers of primes x, we have A071324(x) = A206369(x), so this sequence lists the integers m that have the same property even though they are not powers of primes.
|
|
LINKS
|
|
|
PROG
|
(PARI) a071324(n) = my(d=Vecrev(divisors(n))); sum(k=1, #d, (-1)^(k+1)*d[k]);
a206369(n) = sumdiv(n, d, eulerphi(n/d) * issquare(d));
isok(n) = (n!=1) && !isprimepower(n) && (a071324(n) == a206369(n));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|