OFFSET
1,2
LINKS
Daniel Arribas, Table of n, a(n) for n = 1..1000
EXAMPLE
105 is 1101001 in base 2 (length of 7); 105 / 7 is 15.
MATHEMATICA
Select[Range[410], IntegerQ[#/Length[IntegerDigits[#, 2]]] &] (* Alonso del Arte, Dec 13 2010 *)
PROG
(Python)
import math
for n in range(1, 1000):
if not n % int(math.log(n, 2) + 1): print(n) # Garcia
(Haskell)
base_weight b g n | n == 0 = 0 | otherwise = (base_weight b g (n `div` b)) + (g $ n `mod` b)
interesting b g = filter f [1..] where f n = n `mod` (base_weight b g n) == 0
bin_interesting g = interesting 2 g
weights l n | (n >=0) && ((length l) > fromInteger n) = l !! fromInteger n | otherwise = 0
cnst = weights [1, 1]
let sequence = bin_interesting cnst -- Victor S. Miller, Oct 17 2011
(PARI) for(d=1, 9, forstep(n=(2^(d-1)+d-1)\d*d, 2^d-1, d, print1(n", "))) \\ Charles R Greathouse IV, Oct 17 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Grant Garcia, Dec 13 2010
STATUS
approved