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

Author

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

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A000040, A156979.

Programs

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 *)

Extensions

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