OFFSET
1,1
MATHEMATICA
a[n_]:=Take[Select[Range[50000], PrimeQ[10^n+#-1]&&PrimeQ[10^n+#+1]&], 1][[1]]; Table[a[n], {n, 52}] (* James C. McMahon, Jan 23 2024 *)
PROG
(PARI) a(n) = my(k=1); while (!isprime(10^n + k - 1) || !isprime(10^n + k + 1), k++); k; \\ Michel Marcus, Jan 24 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Mar 17 2005
EXTENSIONS
Corrected and extended by Don Reble, Mar 18 2005
a(49)-a(52) from James C. McMahon, Jan 27 2024
STATUS
approved