OFFSET
1,3
LINKS
Stefano Spezia, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[0, 366], Length[DeleteDuplicates[Mod[IntegerDigits[#], 3]]] == 1 &]
CROSSREFS
KEYWORD
AUTHOR
Stefano Spezia, Jun 24 2025
STATUS
approved
