OFFSET
1,1
LINKS
Chris Caldwell, The First 10,000 Primes.
EXAMPLE
The first term is 14 since it is the product of 2 and 7, which are the smallest and largest 1-digit primes.
MATHEMATICA
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; f[n_] := NextPrim[10^(n - 1)]*PrevPrim[10^n]; Array[f, 13] (* Robert G. Wilson v, Feb 10 2006 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Apr 01 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 10 2006
STATUS
approved