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 A279916 #16 Dec 24 2016 11:16:19 %S A279916 5,4,8,4,3,5,5,14,4,4,4,3,3,3,4,3,4,4,4,4,20,8,23,8,11,5,5,26,5,3,3,3, %T A279916 4,3,4,29,3,3,3,4,3,3,4,3,4,32,6,4,11,4,4,4,35,4,4,11,4,4,4,4,4,7,38, %U A279916 4,6,4,4,4,4,8,41,11,16,8,44,3,47,3,3,3,3,3 %N A279916 Least b such that A279688(n) and 2*A279688(n) are anagrams in base b. %H A279916 Peter Kagey, <a href="/A279916/b279916.txt">Table of n, a(n) for n = 2..10000</a> %e A279916 A279688(2) = 8, and a(2) = 5 because 5 is the least base such that 8 and 16 are anagrams: 8 = 13_5 and 16 = 31_5. %t A279916 DeleteCases[#, 0] &@ Table[Module[{b = 2}, While[2 b < n + 3 && Sort[IntegerDigits[n, b]] != Sort[IntegerDigits[2 n, b]], b++]; b Boole[2 b < n + 3]], {n, 780}] (* _Michael De Vlieger_, Dec 23 2016, after _Robert G. Wilson v_ at A279688 *) %Y A279916 Cf. A023094, A279688, A279689. %K A279916 nonn,base,look %O A279916 2,1 %A A279916 _Peter Kagey_, Dec 23 2016