OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local F;
F:= convert(n, base, 12);
numboccur(1, F)=numboccur(4, F)
end proc:
select(filter, [$0..200]); # Robert Israel, Apr 15 2019
MATHEMATICA
Select[Range[0, 120], DigitCount[#, 12, 1]==DigitCount[#, 12, 4]&] (* Harvey P. Dale, Mar 12 2018 *)
PROG
(PARI) isok(n) = my(d=digits(n, 12)); #select(x->(x==1), d) == #select(x->(x==4), d); \\ Michel Marcus, Apr 16 2019
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved