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 A043317 #15 Mar 07 2018 11:26:44
%S A043317 1,2,3,4,5,6,7,8,9,10,11,12,169,171,172,173,174,175,176,177,178,179,
%T A043317 180,181,338,339,341,342,343,344,345,346,347,348,349,350,507,508,509,
%U A043317 511,512,513,514,515,516,517,518,519,676,677,678
%N A043317 a(n)=A033011(n)/14.
%C A043317 Also: Numbers which, written in base 169, have all digits less than 13 and no two adjacent digits equal. - _M. F. Hasler_, Feb 03 2014
%H A043317 Harvey P. Dale, <a href="/A043317/b043317.txt">Table of n, a(n) for n = 1..1000</a>
%t A043317 Select[Range[700],Max[IntegerDigits[#,169]]<13&&SequenceCount[ IntegerDigits[ #,169],{x_,x_}]==0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 07 2018 *)
%o A043317 (PARI) is_A043317(n)=(n=[n])&&!until(!n[1],((n=divrem(n,169))[2]<13 && n[2]!=n[1]%13)||return) \\ _M. F. Hasler_, Feb 03 2014
%Y A043317 Cf. A043307 - A043320, A043291, A033001 - A033014, A033016 - A033029.
%K A043317 nonn,base
%O A043317 1,2
%A A043317 _Clark Kimberling_