|
Search: id:A070305
|
|
|
| A070305 |
|
Numbers n such that Card(k>0 : phi(k)=phi(n)) = tau(n). |
|
+0
1
|
|
| 2, 4, 8, 10, 11, 14, 16, 23, 27, 28, 29, 31, 32, 38, 47, 53, 59, 64, 67, 71, 79, 83, 86, 100, 103, 107, 114, 125, 127, 128, 131, 136, 137, 139, 147, 149, 151, 167, 170, 172, 173, 176, 179, 191, 197, 199, 202, 211, 223, 227, 229, 235, 239, 251, 256, 263, 265, 269
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
A070241(n)=A00005(n)
|
|
PROGRAM
|
(PARI) for(n=1, 350, if(sum(i=1, 3*n, if(eulerphi(n)-eulerphi(i), 0, 1))==numdiv(n), print1(n, ", ")))
|
|
CROSSREFS
|
Adjacent sequences: A070302 A070303 A070304 this_sequence A070306 A070307 A070308
Sequence in context: A043706 A028836 A028838 this_sequence A029992 A133012 A039011
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr), May 10 2002
|
|
|
Search completed in 0.002 seconds
|
