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 A230047 #11 Dec 12 2015 16:48:37
%S A230047 2,3,5,7,181,191,313,353,373,383,727,757,787,797,17971,19891,19991,
%T A230047 34843,35753,36563,37573,38783,74747,75557,76667,77977,78787,78887,
%U A230047 79997,1987891,1988891,1998991,3479743,3487843,3569653,3586853,3589853,3689863,3698963
%N A230047 Palindromic primes with nondecreasing product of digits.
%C A230047 a(1) = 2; a(n+1) is the smallest palindromic prime with product of digits >= product of digits of a(n).
%H A230047 Shyam Sunder Gupta, <a href="/A230047/b230047.txt">Table of n, a(n) for n = 1..149</a>
%t A230047 a = {}; t = 0; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z], s = Apply[Times, IntegerDigits[z]]; If[s >= t, t = s; AppendTo[a, z]]], {n, 10^4}]; a
%Y A230047 Cf. A002385, A069802.
%K A230047 nonn,base
%O A230047 1,1
%A A230047 _Shyam Sunder Gupta_, Oct 06 2013