|
%I #10 May 01 2014 01:49:43
%S 23,43,67,89,113,157,179,199,223,269,313,337,359,379,449,607,719,739,
%T 809,829,919,1013,1033,1103,1123,1213,1237,1259,1279,1303,1327,1439,
%U 1459,1549,1619,1709,2003,2069,2089,2113,2137,2179,2203,2269,2339,2539
%N Prime numbers p such that 1 = abs(final digit of p - sum of all the other digits of p).
%H Harvey P. Dale, <a href="/A158283/b158283.txt">Table of n, a(n) for n = 1..1000</a>
%e 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 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 Cf. A000040, A156979.
%Y Cf. also A062339, A062341, A062337, A062343, A107579.
%K nonn,base,less
%O 1,1
%A _Juri-Stepan Gerasimov_, Mar 15 2009
%E Entries checked by _R. J. Mathar_, May 19 2010
|
