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

Links

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

Example

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

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

Crossrefs

Cf. A000040, A156979.

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

Sequence in context: A154530 A156979 A281226 * A155786 A296563 A023264

Adjacent sequences: A158280 A158281 A158282 * A158284 A158285 A158286

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Mar 15 2009

Extensions

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

Status

approved