cp's OEIS Frontend

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.

A230045 Palindromic primes with strictly increasing sum of digits.

This page as a plain text file.
%I A230045 #11 Oct 09 2013 11:30:40
%S A230045 2,3,5,7,181,191,373,383,727,757,787,797,17971,19891,19991,76667,
%T A230045 77977,78887,79997,1987891,1988891,1998991,3799973,3899983,3998993,
%U A230045 7897987,7996997,9888889,9889889,9989899,199999991,768989867,779969977,779999977,798989897
%N A230045 Palindromic primes with strictly increasing sum of digits.
%C A230045 a(1)=2; a(n+1) is the smallest palindromic prime with sum of digits > sum of digits of a(n).
%H A230045 Shyam Sunder Gupta, <a href="/A230045/b230045.txt">Table of n, a(n) for n = 1..63</a>
%e A230045 a(6) = 191, sum of digits is 11; a(7) = 373, sum of digits is 13 and 13 > 11.
%t A230045 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 A230045 Cf. A002385, A061248.
%K A230045 nonn,base
%O A230045 1,1
%A A230045 _Shyam Sunder Gupta_, Oct 06 2013