|
1, 2, 3, 5, 6, 9, 10, 12, 15, 18, 20, 22, 25, 30, 36, 40, 45, 50, 54, 60, 68, 72, 75, 90, 100, 103, 108, 116, 120, 132, 135, 150, 180, 200, 216, 225, 226, 240, 252, 270, 274, 280, 285, 300, 308, 315, 324, 336, 350, 360, 378, 400, 405, 420, 432, 450, 456, 504
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
b = 6; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|