A037316 Numbers whose base-4 and base-5 expansions have the same digit sum.

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

Robert Israel, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A037313 A037314 A037315 * A037317 A037318 A037319

Keyword

nonn,base

Author

Clark Kimberling

Status

approved