A157083 Depression-type primes with five digits; from left to right digits decrease to and increase from the central digit.

21013, 21017, 21019, 21023, 21059, 21067, 21089, 31013, 31019, 31039, 31069, 31079, 32027, 32029, 32057, 32059, 32069, 32089, 32159, 32189, 41017, 41023, 41039, 41047, 41057, 42013, 42017, 42019, 42023, 42089, 42139, 42157, 42169

Offset

1,1

Comments

The sequence is finite, ending with [309] 98689.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..309

Mathematica

Select[Prime[Range[1230, 9592]], With[{c=IntegerDigits[#]}, Max[Differences[Take[c, 3]]]<0&&Min[Differences[Take[c, -3]]]>0]&] (* Harvey P. Dale, Apr 09 2026 *)

Crossrefs

Related sequence: A156116

Sequence in context: A344354 A344355 A231314 * A183639 A181260 A316482

Adjacent sequences: A157080 A157081 A157082 * A157084 A157085 A157086

Keyword

nonn,base,fini

Author

Ki Punches, Feb 22 2009

Extensions

Corrected and edited Ki Punches, Feb 26 2009

Comment corrected by Harvey P. Dale, Apr 09 2026

Status

approved