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 A090433 #5 Mar 05 2017 08:53:42 %S A090433 11,13,23,61,101,103,107,109,151,163,211,223,227,241,251,271,311,313, %T A090433 317,331,337,347,401,421,431,433,443,461,503,509,521,523,701,911,1009, %U A090433 1013,1021,1031,1033,1051,1061,1063,1103,1109,1117,1123,1129,1151 %N A090433 Primes p(k) having a smaller sum of digits than k. %C A090433 A090431(a(n)) > 0. %H A090433 Harvey P. Dale, <a href="/A090433/b090433.txt">Table of n, a(n) for n = 1..1000</a> %t A090433 Select[Prime[Range[200]],Total[IntegerDigits[#]]<Total[IntegerDigits[ PrimePi[ #]]]&] (* _Harvey P. Dale_, Mar 05 2017 *) %Y A090433 Cf. A033548, A090432, A007953, A007605, A090457. %K A090433 nonn,base %O A090433 1,1 %A A090433 _Reinhard Zumkeller_, Dec 01 2003