login
A158283
Prime numbers p such that 1 = abs(final digit of p - sum of all the other digits of p).
1
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
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
KEYWORD
nonn,base,less
AUTHOR
EXTENSIONS
Entries checked by R. J. Mathar, May 19 2010
STATUS
approved