|
Search: id:A063885
|
|
| |
| |
|
|
OFFSET
|
1,1
|
|
|
PROGRAM
|
(PARI) u(n) = sumdiv(n, d, if(gcd(d, n/d)==1, d)); z(n) = sigma(n)-u(n); for(n=1, 10^7, if(z(sigma(n))==2*n, print(n)))
|
|
CROSSREFS
|
Cf. A000203, A034448, A048146, A019284.
Sequence in context: A010797 A099060 A035174 this_sequence A019284 A112389 A054777
Adjacent sequences: A063882 A063883 A063884 this_sequence A063886 A063887 A063888
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Aug 28 2001
|
|
|
Search completed in 0.002 seconds
|
