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.

A230046 Palindromic primes with nondecreasing sum of digits.

This page as a plain text file.
%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