A156307 Primes where the first digit equals the sum of all the other digits.

11, 101, 211, 431, 523, 541, 743, 761, 853, 2011, 4013, 4211, 5023, 5113, 7043, 7151, 7331, 8017, 8053, 8161, 8233, 8431, 8521, 20011, 20101, 21001, 40013, 40031, 41201, 42101, 50023, 50131, 50221, 50311, 51031, 52021, 52201, 53101, 54001, 70061, 70223, 70241, 70313, 71411, 72221, 73013, 73121, 74021, 74201, 75011, 76001, 80071, 80107, 80233, 80251, 80341, 80611, 80701

Offset: 1

Author

Parthasarathy Nambi, Feb 07 2009

Keywords

• nonn
• base

Comments

There is no term that begins with 3, 6 or 9. - Bernard Schott, Feb 16 2020

Examples

			4211 is a prime where the first digit equals the sum of all the other digits.
		

Links

• Daniel Starodubtsev, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040.

Programs

Mathematica

ferQ[n_]:=Module[{idn=IntegerDigits[n]},First[idn]==Total[Rest[idn]]]; Select[Prime[Range[8000]],ferQ] (* Harvey P. Dale, Jun 22 2011 *)

Extensions

Corrected and extended by Zak Seidov, Feb 08 2009