OFFSET
1,2
COMMENTS
Essentially the same as A043089, b.t.w. the initial "0" could be as well included here. Also: numbers n such that A043277(n)=1. - M. F. Hasler, Jul 23 2013
MATHEMATICA
Select[Range[200], FreeQ[Differences[IntegerDigits[#, 3]], 0]&] (* Harvey P. Dale, Mar 03 2024 *)
PROG
(PARI) for(i=1, 199, A043277(i)==1 & print1(i", ")) \\ - M. F. Hasler, Jul 23 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Aug 02 2010
STATUS
approved