|
3, 6, 7, 10, 13, 14, 15, 18, 15, 22, 27, 26, 29, 30, 23, 34, 49, 38, 51, 42, 31, 46, 55, 50, 45, 54, 39, 58, 61, 62, 63, 66, 47, 70, 61, 74, 101, 78, 55, 82, 105, 86, 107, 90, 63, 94, 111, 98, 63, 102, 71, 106, 117, 110, 93, 114, 79, 118, 123, 122, 125, 126, 87, 130, 109
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
n=99: smallest factor = 3->'11' and greatest proper divisor =
99/3 = 33->'100001': '10001'&'11'='10000111'->a(99)=135.
|
|
MATHEMATICA
|
cbr[n_]:=Module[{sf=FactorInteger[n][[1, 1]]}, FromDigits[ Join[ IntegerDigits[ n/sf, 2], IntegerDigits[sf, 2]], 2]]; Array[cbr, 70] (* Harvey P. Dale, Jul 06 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|