|
|
A062925
|
|
Numbers k that, when expressed in base 4 and then interpreted in base 9, give a multiple of k.
|
|
11
|
|
|
0, 1, 2, 3, 5, 10, 15, 25, 75, 100, 125, 355, 435, 500, 1775, 2415, 3675, 5825, 9660, 14700, 17074, 20786, 22382, 23300, 27300, 79716, 83144, 87087, 97860, 103930, 125460, 172105, 331275, 332576, 348348, 415720, 1325100, 1330304, 1531980
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
5 in base 4 is 11, which interpreted in base 9 is 10 = 2*5.
|
|
MATHEMATICA
|
Join[{0}, Select[Range[1540000], Divisible[FromDigits[IntegerDigits[#, 4], 9], #]&]] (* Harvey P. Dale, Sep 03 2021 *)
|
|
PROG
|
(PARI) select(n->n==0 || fromdigits(digits(n, 4), 9) % n == 0, [0..100000]) \\ Andrew Howroyd, Jun 28 2018
|
|
CROSSREFS
|
Cf. A062845, A062846, A062847, A062848, A062849, A062850, A062853, A062864, A062865, A062884, A062889, A062891, A062920, A062921, A062922, A062923, A062928, A062929, A062930, A062931, A062934, A062937, A062939, A062942, A062943, A062944.
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|