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 A279688 #23 Sep 16 2018 04:36:55
%S A279688 0,8,18,21,27,32,40,48,65,66,72,78,86,96,98,99,104,108,111,114,123,
%T A279688 133,168,176,189,190,200,208,225,240,248,258,260,264,266,270,280,288,
%U A279688 294,296,297,312,314,318,320,330,341,350,363,380,387,396,399,408,429,432
%N A279688 Numbers k such that k and 2k are anagrams in some base.
%H A279688 Chai Wah Wu, <a href="/A279688/b279688.txt">Table of n, a(n) for n = 1..10001</a>
%e A279688 a(2) = 8 because in base 5, 8 = 13_5 and 16 = 31_5.
%e A279688 a(3) = 18 because in base 4, 18 = 102_4 and 36 = 210_4.
%t A279688 fQ[n_] := Block[{b = 2}, While[ 2b < n +3 && Sort[ IntegerDigits[n, b]] != Sort[ IntegerDigits[ 2n, b]], b++]; 2b < n +3]; fQ[0] = True; Select[Range[0, 435], fQ] (* _Robert G. Wilson v_, Dec 21 2016 *)
%o A279688 (PARI) isok(n) = if (n==0, 1, for (b=2, n, if (vecsort(digits(n,b)) == vecsort(digits(2*n,b)), return(1))); 0); \\ _Michel Marcus_, Dec 17 2016
%Y A279688 Cf. A023094.
%K A279688 nonn,base,look
%O A279688 1,2
%A A279688 _Peter Kagey_, Dec 17 2016