OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 638 terms from Michael De Vlieger)
EXAMPLE
20 has 6 divisors. 20 in binary is 10100, while 6 in binary is 110. Since both 10100 and 110 contain the same number of 1's (two 1's each), then 20 is in the sequence.
MAPLE
read("transforms") ; isA162952 := proc(n) RETURN( wt(n) = wt(numtheory[tau](n)) ) ; end: for n from 1 to 10000 do if isA162952(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jul 30 2009
MATHEMATICA
Select[Range[2^12], SameQ @@ DigitCount[{#, DivisorSigma[0, #]}, 2, 1] &] (* Michael De Vlieger, Nov 04 2017 *)
PROG
(PARI) isok(n) = (hammingweight(n) == hammingweight(numdiv(n))); \\ Michel Marcus, Nov 04 2017
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Jul 18 2009
EXTENSIONS
Extended beyond a(10) by R. J. Mathar, Jul 30 2009
STATUS
approved