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 A050746 #11 Oct 16 2019 01:32:04 %S A050746 0,1,2,3,4,5,7,8,9,11,12,13,14,15,16,19,24,25,26,27,28,29,32,36,46,52, %T A050746 56,57,61,62,63,71,74,79,82,83,91,101,107,111,125,132,135,136,147,149, %U A050746 152,153,154,159,161,163,171,173,175,194,204,207,211,212,221,225,227 %N A050746 Numbers k such that the decimal expansion of k^7 contains no pair of consecutive equal digits. %H A050746 Robert Israel, <a href="/A050746/b050746.txt">Table of n, a(n) for n = 1..10000</a> %p A050746 filter:= proc(n) local L; %p A050746 L:= convert(n^7,base,10); %p A050746 not member(0, L[1..-2]-L[2..-1]) %p A050746 end proc: %p A050746 select(filter, [$0..1000]); # _Robert Israel_, Jun 23 2019 %Y A050746 Cf. A050754. %K A050746 nonn,base %O A050746 1,3 %A A050746 _Patrick De Geest_, Sep 15 1999