|
Search: id:A071638
|
|
|
| A071638 |
|
Numbers n such that phi(n) = b(n,1)^b(n,0) where b(n,1) is the number of 1's in binary representation of n and b(n,0) the number of 0's. |
|
+0
1
|
|
| 1, 2, 6, 10, 12, 20, 24, 34, 40, 48, 60, 68, 80, 85, 96, 136, 160, 192, 272, 320, 384, 399, 514, 544, 640, 768, 1028, 1088, 1280, 1536, 2040, 2056, 2176, 2560, 3072, 4112, 4352, 5120, 6144, 8224, 8704, 10240, 12288, 13805, 16448, 17408, 20480, 24576
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
PROGRAM
|
(PARI) for(s=1, 100000, if(sum(i=1, length(binary(s)), if(component(binary(s), i)-1, 0, 1))^sum(i=1, length(binary(s)), if(component(binary(s), i), 0, 1))==eulerphi(s), print1(s, ", ")))
|
|
CROSSREFS
|
Cf. A023416, A000120.
Sequence in context: A095300 A097381 A055743 this_sequence A028348 A140776 A108783
Adjacent sequences: A071635 A071636 A071637 this_sequence A071639 A071640 A071641
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr), Jun 22 2002
|
|
|
Search completed in 0.002 seconds
|
