OFFSET
1,2
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
Divisors of n in base 2 (k-th divisor contains k digits):
n=1: 1;
n=16: 1, 10, 100, 1000, 10000;
n=230: 1, 10, 101, 1010, 10111, 101110, 1110011, 11100110.
MATHEMATICA
Join[{1}, Select[Range[4000], Union[Differences[Length /@ IntegerDigits[Divisors[#], 2]]] == {1} &]] (* T. D. Noe, Mar 12 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 04 2012
STATUS
approved