OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L, a1;
L:= convert(n, base, 9);
a1:= numboccur(1, L);
a1 > 0 and numboccur(6, L)=a1
end proc:
select(filter, [$1..1000]); # Robert Israel, Sep 27 2018
MATHEMATICA
Select[Range[1000], DigitCount[#, 9, 1]==DigitCount[#, 9, 6]>0&] (* Harvey P. Dale, Oct 15 2014 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved