OFFSET
1,2
MATHEMATICA
s124Q[n_]:=Module[{dc6=DigitCount[n, 6]}, dc6[[1]]==dc6[[2]]==dc6[[4]]]; Select[Range[0, 500], s124Q] (* Harvey P. Dale, Oct 20 2015 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved