OFFSET

1,2

COMMENTS

Numbers of the form 2^(2^k-1) (A058891) are terms of this sequence since A093653(2^(2^k-1)) = 2^k. - Amiram Eldar, Oct 31 2020

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000

EXAMPLE

a(5) = 8 because the divisors of 8 in binary are: 1, 10, 100, 1000, with four 1's and 8/4 = 2.

MATHEMATICA

Select[Range[1500], Divisible[#, Plus @@ DigitCount[Divisors[#], 2, 1]] &] (* Amiram Eldar, Dec 16 2019 *)

PROG

(Magma) f:=func< n|&+[&+Intseq(d, 2):d in Divisors(n)]>; [k:k in [1..1500]| k mod f(k) eq 0]; // Marius A. Burtea, Dec 16 2019

CROSSREFS

KEYWORD

easy,base,nonn

AUTHOR

Jason Earls, May 17 2004

STATUS

approved