|
1, 2, 3, 4, 6, 8, 12, 14, 16, 18, 21, 24, 26, 28, 32, 36, 42, 48, 52, 56, 58, 63, 64, 72, 84, 96, 108, 126, 128, 144, 147, 168, 189, 192, 216, 252, 256, 276, 328, 362, 384, 456, 492, 512, 656, 768, 896, 904, 984, 1024, 1116, 1152, 1211, 1251, 1344, 1536, 1736
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
b = 4; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 10 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|