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 A230046 #11 Dec 12 2015 16:48:45 %S A230046 2,3,5,7,151,181,191,353,373,383,727,757,787,797,17971,19891,19991, %T A230046 38783,74747,75557,76367,76667,77477,77977,78787,78887,79697,79997, %U A230046 1879781,1895981,1969691,1987891,1988891,1998991,3799973,3899983,3997993,3998993,7696967 %N A230046 Palindromic primes with nondecreasing sum of digits. %C A230046 a(1) = 2; a(n+1) is the smallest palindromic prime with sum of digits >= sum of digits of a(n). %H A230046 Shyam Sunder Gupta, <a href="/A230046/b230046.txt">Table of n, a(n) for n = 1..157</a> %t A230046 a = {}; t = 0; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z], s = Apply[Plus, IntegerDigits[z]]; If[s >= t, t = s; AppendTo[a, z]]], {n, 10^5}]; a %Y A230046 Cf. A002385, A067954. %K A230046 nonn,base %O A230046 1,1 %A A230046 _Shyam Sunder Gupta_, Oct 06 2013