A039231 Numbers whose base-12 representation has the same number of 2's and 4's.

0, 1, 3, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 17, 18, 19, 20, 21, 22, 23, 28, 36, 37, 39, 41, 42, 43, 44, 45, 46, 47, 50, 60, 61, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 75, 77, 78, 79, 80, 81, 82, 83, 84, 85, 87, 89, 90, 91, 92, 93, 94, 95, 96, 97, 99, 101, 102, 103, 104

Offset

1,3

Links

Table of n, a(n) for n=1..69.

Mathematica

Select[Range[0, 150], DigitCount[#, 12, 2]==DigitCount[#, 12, 4]&] (* Harvey P. Dale, Mar 06 2022 *)

Prog

(PARI) f(n, b, d) = #select(x->x==d, digits(n, b));
select(n->f(n, 12, 2)==f(n, 12, 4), [0..230]) \\ Petros Hadjicostas, Jul 09 2020

Crossrefs

Sequence in context: A138884 A008521 A299489 * A194387 A039175 A048293

Adjacent sequences: A039228 A039229 A039230 * A039232 A039233 A039234

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved