OFFSET
1,1
LINKS
Jonathan Frech, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[900], And[SameQ @@ #, AllTrue[#, # > 0 &]] &@ DigitCount[#, 8, {0, 6}] &] (* Michael De Vlieger, Apr 07 2021 *)Select[Range[1000], DigitCount[#, 8, 0]==DigitCount[#, 8, 6]>0&] (* Harvey P. Dale, Jun 22 2026 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved
