A158281 Prime numbers p such that prime = abs(smallest digit of p - sum of all the other digits of p).

2, 3, 5, 7, 13, 29, 31, 41, 47, 53, 61, 79, 83, 97, 101, 113, 131, 139, 151, 157, 193, 199, 211, 223, 227, 241, 263, 269, 311, 313, 331, 337, 353, 359, 373, 379, 397, 401, 409, 421, 443, 463, 487, 557, 571, 593, 599, 601, 607, 643, 661, 683, 733, 739, 751, 773

Offset

1,1

Links

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

Example

13(2=abs(1-3)), 29(7=abs(2-9)), 31(2=3-1)

Mathematica

sdsodQ[n_]:=Module[{sidn=Sort[IntegerDigits[n]]}, PrimeQ[Abs[sidn[[1]]-Total[Rest[sidn]]]]]; Select[Prime[Range[150]], sdsodQ] (* Harvey P. Dale, Feb 01 2015 *)

Crossrefs

Cf. A000040, A156979.

Sequence in context: A096177 A075238 A346408 * A115261 A063792 A270391

Adjacent sequences: A158278 A158279 A158280 * A158282 A158283 A158284

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Mar 15 2009, May 25 2009

Extensions

Single-digit primes added, duplicates of 421 and 443 removed - R. J. Mathar, May 19 2010

Status

approved