OFFSET
1,1
LINKS
Michel Lagneau, Michael De Vlieger and Robert G. Wilson v, Table of n, a(n) for n = 1..1105
MATHEMATICA
f[n_] := Block[{k = 0, p = {}, r = (10^n - 1)/3, s = Range@ 10 - 4}, While[k < n, AppendTo[p, Select[r + 10^k*s, PrimeQ]]; k++]; p = Min@ Flatten@ p]; f[1] = 2; f[2] = 13; Array[f, 20]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved