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 A378104 #16 Nov 21 2024 05:23:10
%S A378104 135,141,147,156,177,180,198,201,210,216,225,228,572,678,684,714,722,
%T A378104 738,2110,2170,2230,2382,2410,2638,2702,2710,2758,2830,2886,8287,8351,
%U A378104 8367,8375,8399,8415,8429,8435,8479,8527,8539,8551,8563,8569,8591,8605,8615,8619,8630
%N A378104 Positive integers that are digitally balanced in more than one integer base b >= 2.
%C A378104 A digitally balanced number in base b contains every digit from 0 to b-1 in equal amount.
%H A378104 Paolo Xausa, <a href="/A378104/b378104.txt">Table of n, a(n) for n = 1..1000</a>
%H A378104 Giovanni Resta, <a href="https://www.numbersaplenty.com/set/balanced_number/">Digitally balanced numbers</a>, Numbers Aplenty, 2013.
%e A378104 135 is a term because it's a digitally balanced number in two bases (135 = 10000111_2 = 2013_4).
%e A378104 The first term that is digitally balanced in three bases is 13575 = 11010100000111_2 = 200121210_3 = 142503_6.
%t A378104 A378104Q[n_] := Module[{b = 1, c = 0, len}, While[(len = IntegerLength[n, ++b]) >= b, If[Divisible[len, b] && SameQ @@ DigitCount[n, b], c++]]; c > 1];
%t A378104 Select[Range[10000], A378104Q]
%Y A378104 Subsequence of A378073.
%Y A378104 Cf. A049364, A065963, A378000, A378104.
%K A378104 nonn,base
%O A378104 1,1
%A A378104 _Paolo Xausa_, Nov 16 2024