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 A045810 #16 Sep 08 2019 02:55:58 %S A045810 3,3,9,12,15,4,4,8,12,8,16,4,18,16,20,18,27,36,45,5,5,5,10,5,15,5,10, %T A045810 10,36,10,15,5,20,5,15,25,15,5,10,10,5,20,15,20,5,15,40,25,8,24,33,33, %U A045810 22,33,55,6,51,6,6,6,12,18,6,12,6,12,6,18,12,12,23,6,6,12,6,6,6,12,24 %N A045810 Number of times the digits are repeated in A045799. %H A045810 Amiram Eldar, <a href="/A045810/b045810.txt">Table of n, a(n) for n = 1..10000</a> %H A045810 N. Nomoto, <a href="http://www.geocities.co.jp/Technopolis/1793/09digit.htm">In the list of divisors of n,... </a> [Dead link] %e A045810 100[ 0(3),1(3) ], 10001[ 0(3),1(3) ], 10100[ 0(9),1(9) ],.... %t A045810 f[v_] := If[Length[v] == 2 && v[[1]] == v[[2]], v[[1]], 0]; a[n_] := f[(Tally @ Flatten @ Join @ IntegerDigits[Divisors[n], 2])[[;; , 2]]]; Select[a /@ Range[ 1200], # > 0 &] (* _Amiram Eldar_, Sep 08 2019 *) %Y A045810 Cf. A038564, A038565, A045799. %K A045810 easy,nonn,base %O A045810 1,1 %A A045810 _Naohiro Nomoto_ %E A045810 Offset corrected by _Amiram Eldar_, Sep 08 2019