OFFSET
1,1
COMMENTS
See A176600
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
EXAMPLE
19//13 = 1913 = prime(293), 19//31 = 1931 = prime(294), 19 = prime(8) is 1st term
853//13 = 85313 = prime(8306), 853//31 = 85331 = prime(8307), 853 = prime(147) is 2nd term
MATHEMATICA
okQ[n_]:=Module[{idn=IntegerDigits[n], p13, p31}, p13=FromDigits[ Join[ idn, {1, 3}]]; p31=FromDigits[Join[idn, {3, 1}]]; PrimeQ[p13]&&NextPrime[p13] == p31]; Select[Prime[Range[16000]], okQ] (* Harvey P. Dale, Jan 21 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Apr 21 2010
EXTENSIONS
More terms from Harvey P. Dale, Jan 21 2012
STATUS
approved