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
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Mar 15 2009
EXTENSIONS
Entries checked by R. J. Mathar, May 19 2010
STATUS
approved