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,1

Comments

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

Links

Table of n, a(n) for n=1..46.

Example

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

Mathematica

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

Crossrefs

Cf. A000040, A156979.

Sequence in context: A286661 A171058 A105906 * A100765 A372222 A092168

Adjacent sequences: A157006 A157007 A157008 * A157010 A157011 A157012

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Feb 21 2009

Extensions

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

Status

approved