A158283 Prime numbers p such that 1 = abs(final digit of p - sum of all the other digits of p).

23, 43, 67, 89, 113, 157, 179, 199, 223, 269, 313, 337, 359, 379, 449, 607, 719, 739, 809, 829, 919, 1013, 1033, 1103, 1123, 1213, 1237, 1259, 1279, 1303, 1327, 1439, 1459, 1549, 1619, 1709, 2003, 2069, 2089, 2113, 2137, 2179, 2203, 2269, 2339, 2539

Offset: 1

Author

Juri-Stepan Gerasimov, Mar 15 2009

Keywords

• nonn
• base
• less

Examples

			23(1=3-2), 43(1=abs(3-4)), 67(1=abs(7-6)), 89(1=abs(9-8)), 113(1=3-(1+1)).
		

Links

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

Crossrefs

Cf. A000040, A156979.

Cf. also A062339, A062341, A062337, A062343, A107579.

Programs

Mathematica

ps1[n_]:=Module[{idn=IntegerDigits[n]},Abs[Last[idn]-Total[Most[idn]]] == 1]; Select[Prime[Range[400]],ps1] (* Harvey P. Dale, Jul 31 2012 *)

Extensions

Entries checked by R. J. Mathar, May 19 2010