A158192 Prime numbers p such that first digit of p = largest digit of p - smallest digit of p.

101, 401, 487, 503, 601, 617, 701, 907, 2011, 2113, 2131, 2213, 2243, 2311, 2423, 3001, 3011, 3023, 3203, 3253, 3301, 3413, 3463, 3643, 4001, 4003, 4013, 4021, 4153, 4201, 4337, 4357, 4373, 4451, 4513, 4637, 4673, 4733, 4787, 4877, 5003, 5011, 5021

Offset

1,1

Links

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

Example

101(1=1-0), 401(4=4-0), 487(4=8-4)

Mathematica

Select[Prime[Range[700]], With[{id=IntegerDigits[#]}, id[[1]]==Max[id]-Min[id]]&] (* Harvey P. Dale, Mar 20 2025 *)

Crossrefs

Sequence in context: A282406 A142264 A142136 * A327347 A062800 A323178

Adjacent sequences: A158189 A158190 A158191 * A158193 A158194 A158195

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Mar 13 2009

Extensions

Missing terms inserted by R. J. Mathar, Mar 15 2009

Status

approved