A157009 Primes p such that 3 = abs(largest digit of p - sum of all the other digits of p).

3, 41, 47, 137, 151, 173, 227, 283, 317, 401, 443, 467, 487, 557, 647, 773, 823, 883, 1051, 1217, 1277, 1307, 1367, 1381, 1433, 1453, 1543, 1637, 1721, 1783, 1831, 1873, 2027, 2083, 2207, 2221, 2243, 2267, 2281, 2287, 2357, 2423, 2441, 2447, 2551, 2683

Offset: 1

Author

Juri-Stepan Gerasimov, Feb 21 2009

Keywords

• nonn
• base

Comments

Since zero digits are allowed, sequence is almost certainly infinite. - Zak Seidov, Feb 22 2009

Examples

			a(1)=3 because 3=abs(3-0). a(4)=137 because 1<3<7 and 3=abs(7-(1+3)).
		

Crossrefs

Cf. A000040, A156979.

Programs

Mathematica

moQ[n_]:=Module[{idn=IntegerDigits[n]},Abs[2Max[idn]-Total[idn]] ==3]; Select[Prime[Range[500]],moQ] (* Harvey P. Dale, May 12 2011 *)

Extensions

Removed 1481. R. J. Mathar, Feb 21 2009