|
| |
|
|
A063891
|
|
z(usigma(n)) = 2n, where z(n) = A048146.
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
PROG
| (PARI) u(n) = sumdiv(n, d, if(gcd(d, n/d)==1, d)); z(n)=sigma(n)-u(n) for(n=1, 10^8, if(z(u(n))==2*n, print(n)))
|
|
|
CROSSREFS
| Cf. A000203, A034448, A048146, A019284, A063885.
Sequence in context: A186846 A198510 A202985 * A072409 A052455 A054808
Adjacent sequences: A063888 A063889 A063890 * A063892 A063893 A063894
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Aug 28 2001
|
|
|
EXTENSIONS
| More terms from Thomas Baruchel (baruchel(AT)users.sourceforge.net), Oct 22 2003
|
| |
|
|
