login
A230046
Palindromic primes with nondecreasing sum of digits.
1
2, 3, 5, 7, 151, 181, 191, 353, 373, 383, 727, 757, 787, 797, 17971, 19891, 19991, 38783, 74747, 75557, 76367, 76667, 77477, 77977, 78787, 78887, 79697, 79997, 1879781, 1895981, 1969691, 1987891, 1988891, 1998991, 3799973, 3899983, 3997993, 3998993, 7696967
OFFSET
1,1
COMMENTS
a(1) = 2; a(n+1) is the smallest palindromic prime with sum of digits >= sum of digits of a(n).
LINKS
MATHEMATICA
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
CROSSREFS
Sequence in context: A054218 A075048 A281021 * A098463 A064155 A230047
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, Oct 06 2013
STATUS
approved