OFFSET
1,4
MATHEMATICA
If[#[[1]]==0, Length[#], Nothing]&/@Split[Flatten[Table[Reverse[IntegerDigits[n, 3]], {n, 0, 200}]]] (* Harvey P. Dale, Mar 14 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Initial 1 inserted for consistency with change in A030341 by Sean A. Irvine, Mar 31 2020
STATUS
approved