cp's OEIS Frontend

A084836 Palindromic primes with nondecreasing digits up to the middle and then nonincreasing.

%I A084836 #11 Jun 27 2022 01:51:39
%S A084836 2,3,5,7,11,131,151,181,191,353,373,383,787,797,11311,11411,12421,
%T A084836 12721,12821,13331,13831,13931,14741,15551,16661,17971,19991,33533,
%U A084836 34543,34843,35753,77977,78887,79997,1114111,1117111,1123211,1126211,1129211,1134311
%N A084836 Palindromic primes with nondecreasing digits up to the middle and then nonincreasing.
%H A084836 Michael S. Branicky, <a href="/A084836/b084836.txt">Table of n, a(n) for n = 1..10000</a>
%H A084836 Patrick De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World of Palindromic Primes</a>
%o A084836 (Python)
%o A084836 from sympy import isprime
%o A084836 from itertools import count, islice, combinations_with_replacement as mc
%o A084836 def agen():
%o A084836     yield from (2, 3, 5, 7, 11)
%o A084836     for d in count(2):
%o A084836         ndni = (int("".join(m+m[:-1][::-1])) for m in mc("123456789", d))
%o A084836         yield from filter(isprime, ndni)
%o A084836 print(list(islice(agen(), 40))) # _Michael S. Branicky_, Jun 26 2022
%Y A084836 Cf. A084837, A062351, A062352.
%K A084836 nonn,base
%O A084836 1,1
%A A084836 _Patrick De Geest_, Jun 07 2003
%E A084836 a(39) and beyond from _Michael S. Branicky_, Jun 26 2022