OFFSET
1,2
MATHEMATICA
dgQ[n_]:=Module[{c=DigitCount[n, 6]}, c[[1]]==c[[2]]==c[[5]]]; Select[Range[ 0, 500], dgQ] (* Harvey P. Dale, Mar 29 2013 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved
