%I #13 Mar 03 2024 19:35:35
%S 1,2,3,5,6,7,10,11,15,16,19,20,21,23,30,32,33,34,46,47,48,50,57,59,60,
%T 61,64,65,69,70,91,92,96,97,100,101,102,104,138,140,141,142,145,146,
%U 150,151,172,173,177,178,181,182,183,185,192
%N Numbers without consecutive equal base 3 digits.
%C 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
%F A031941 = { n | A043277(n)=1 } = A043089 \ {0}. - M. F. Hasler, Jul 23 2013
%t Select[Range[200],FreeQ[Differences[IntegerDigits[#,3]],0]&] (* _Harvey P. Dale_, Mar 03 2024 *)
%o (PARI) for(i=1,199,A043277(i)==1 & print1(i",")) \\ - _M. F. Hasler_, Jul 23 2013
%Y Cf. A000975 (base-2 analog), A031942 or A043090 (base-4 analog), A031943 or A043091 (base-5 analog), A043092, ..., A043096 (base-6 through base-10 analog).
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Edited by _Charles R Greathouse IV_, Aug 02 2010