OFFSET
0,1
EXAMPLE
We thus have successively the derived primes: 11311, 1111333, 111137777, 11111977777, 1111111333333, 111111139999999, ... .
MATHEMATICA
f[n_] := Block[{k = 1}, While[id = IntegerDigits@ Prime@ k; !PrimeQ[ FromDigits@ Join[ Table[id[[1]], {n}], id, Table[id[[ -1]], {n}]]], k++ ]; Prime@k]; Table[ f@n, {n, 0, 51}] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Lekraj Beedassy, Apr 08 2006
EXTENSIONS
More terms from Robert G. Wilson v, Apr 12 2006
STATUS
approved