This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A031941 #13 Mar 03 2024 19:35:35
%S A031941 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 A031941 61,64,65,69,70,91,92,96,97,100,101,102,104,138,140,141,142,145,146,
%U A031941 150,151,172,173,177,178,181,182,183,185,192
%N A031941 Numbers without consecutive equal base 3 digits.
%C A031941 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 A031941 = { n | A043277(n)=1 } = A043089 \ {0}. - M. F. Hasler, Jul 23 2013
%t A031941 Select[Range[200],FreeQ[Differences[IntegerDigits[#,3]],0]&] (* _Harvey P. Dale_, Mar 03 2024 *)
%o A031941 (PARI) for(i=1,199,A043277(i)==1 & print1(i",")) \\ - _M. F. Hasler_, Jul 23 2013
%Y A031941 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 A031941 nonn,base
%O A031941 1,2
%A A031941 _Clark Kimberling_
%E A031941 Edited by _Charles R Greathouse IV_, Aug 02 2010