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