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 A067954 #14 Nov 04 2014 23:01:51 %S A067954 2,3,5,7,17,19,29,47,59,79,89,179,197,199,379,389,479,499,599,797,887, %T A067954 977,997,1699,1789,1879,1889,1979,1997,1999,2999,3989,4799,4889,4999, %U A067954 6899,8699,8969,8999,18899,19889,19979,19997 %N A067954 Primes related to the nondecreasing subsequence of A007605 (sums of digits of primes). %C A067954 a(1)=2; a(n+1) is the smallest prime with sum of digits >= sum of digits of a(n). %t A067954 t = {s = 2}; Do[If[(y = Total[IntegerDigits[x = Prime[n]]]) >= s, AppendTo[t, x]; s = y], {n, 2, 2500}]; t (* _Jayanta Basu_, Aug 10 2013 *) %Y A067954 Cf. A061248, A007605, A067043, A007953, A000040, A156604, A156673. %K A067954 nonn,base %O A067954 1,1 %A A067954 _Reinhard Zumkeller_, Mar 10 2002