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 A378835 #9 Dec 12 2024 09:26:52 %S A378835 0,1,2,3,4,5,6,7,8,9,99,109,118,128,138,148,158,168,178,181,182,183, %T A378835 184,185,186,187,188,190,209,218,227,237,247,257,267,272,273,274,275, %U A378835 276,277,281,290,309,318,327,336,346,356,363,364,365,366,372,381,390,409,418,427,436,445 %N A378835 Numbers with the median of the digits equal to the digital root. %H A378835 Stefano Spezia, <a href="/A378835/b378835.txt">Table of n, a(n) for n = 1..10000</a> %e A378835 10 is not in the list because the median of its digits is not integer. %e A378835 11 is not in the list because the median of its digits is 1 which is not equal to 2, the digital root of 11. %e A378835 109 is in the list because the median of its digits is 1 which is equal to the digital root of 109. %t A378835 A010888[n_]:=If[n==0,0,n - 9*Floor[(n-1)/9]]; Select[Range[0,450], Median[IntegerDigits[#]]==A010888[#] &] %Y A378835 Cf. A010888, A378836. %Y A378835 Cf. A378560, A378564, A378837, A378838. %K A378835 nonn,base,easy %O A378835 1,3 %A A378835 _Stefano Spezia_, Dec 09 2024