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