|
|
A037316
|
|
Numbers whose base-4 and base-5 expansions have the same digit sum.
|
|
1
|
|
|
1, 2, 3, 28, 29, 40, 41, 42, 43, 52, 53, 54, 76, 77, 78, 79, 90, 91, 100, 101, 102, 103, 115, 136, 137, 138, 139, 160, 161, 162, 163, 188, 189, 210, 211, 236, 237, 238, 239, 270, 271, 280, 281, 282, 283, 295, 305, 306, 307, 330, 331
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
filter:= n -> convert(convert(n, base, 4), `+`)=convert(convert(n, base, 5), `+`):
|
|
MATHEMATICA
|
Select[Range[400], Total[IntegerDigits[#, 4]]==Total[IntegerDigits[#, 5]]&] (* Harvey P. Dale, Sep 15 2018 *)
|
|
PROG
|
(PARI) isok(k) = sumdigits(k, 4) == sumdigits(k, 5); \\ Michel Marcus, Jun 02 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|