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 A090432 #13 Nov 10 2015 04:42:38 %S A090432 2,3,5,7,17,19,29,31,37,41,43,47,53,59,67,71,73,79,83,89,97,113,127, %T A090432 137,139,149,157,167,173,179,181,191,193,197,199,229,233,239,257,269, %U A090432 277,281,283,293,307,349,353,359,367,373,379,383,389,397,409,419,439 %N A090432 Primes prime(k) having a greater sum of digits than does k. %C A090432 A090431(a(n)) < 0. %t A090432 Prime[#]&/@Select[Range[100],Total[IntegerDigits[Prime[#]]]-Total[IntegerDigits[#]]>0&] (* _Michel Lagneau_, Nov 07 2015 *) %o A090432 (PARI) isok(n) = sumdigits(prime(n)) > sumdigits(n); \\ _Michel Marcus_, Nov 07 2015 %Y A090432 Cf. A007605, A007953, A033548, A090431, A090433, A090456. %K A090432 nonn,base %O A090432 1,1 %A A090432 _Reinhard Zumkeller_, Dec 01 2003