Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
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
OFFSET
1,2
LINKS
MAPLE
filter:= n -> convert(convert(n, base, 4), `+`)=convert(convert(n, base, 5), `+`):
select(filter, [$1..1000]); # Robert Israel, Mar 11 2018
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
Cf. A053737 (base-4 sum of digits), A053824 (base-5 sum of digits).
Sequence in context: A279962 A037320 A010344 * A032813 A337560 A333704
KEYWORD
nonn,base
STATUS
approved