STATUS
proposed
approved
proposed
approved
editing
proposed
Cf. A007095.
proposed
editing
editing
proposed
Numbers n such that whose base-9 representation in base 9 has the same number of 1's and 6's.
approved
editing
proposed
approved
editing
proposed
(PARI) isok(n) = {my(d = digits(n, 9)); #select(x->(x==1), d) == #select(x->(x==6), d); } \\ Michel Marcus, Mar 13 2018
proposed
editing
editing
proposed
Robert Israel, <a href="/A039088/b039088.txt">Table of n, a(n) for n = 1..10000</a>
filter:= proc(n) local L;
L:= convert(n, base, 9);
numboccur(1, L) = numboccur(6, L)
end proc:
select(filter, [$0..1000]); # Robert Israel, Mar 13 2018
approved
editing