This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A158283 #10 May 01 2014 01:49:43
%S A158283 23,43,67,89,113,157,179,199,223,269,313,337,359,379,449,607,719,739,
%T A158283 809,829,919,1013,1033,1103,1123,1213,1237,1259,1279,1303,1327,1439,
%U A158283 1459,1549,1619,1709,2003,2069,2089,2113,2137,2179,2203,2269,2339,2539
%N A158283 Prime numbers p such that 1 = abs(final digit of p - sum of all the other digits of p).
%H A158283 Harvey P. Dale, <a href="/A158283/b158283.txt">Table of n, a(n) for n = 1..1000</a>
%e A158283 23(1=3-2), 43(1=abs(3-4)), 67(1=abs(7-6)), 89(1=abs(9-8)), 113(1=3-(1+1)).
%t A158283 ps1[n_]:=Module[{idn=IntegerDigits[n]},Abs[Last[idn]-Total[Most[idn]]] == 1]; Select[Prime[Range[400]],ps1] (* _Harvey P. Dale_, Jul 31 2012 *)
%Y A158283 Cf. A000040, A156979.
%Y A158283 Cf. also A062339, A062341, A062337, A062343, A107579.
%K A158283 nonn,base,less
%O A158283 1,1
%A A158283 _Juri-Stepan Gerasimov_, Mar 15 2009
%E A158283 Entries checked by _R. J. Mathar_, May 19 2010