%I #17 Jan 20 2018 09:02:58

%S 14,1067,100697,10062757,1000609937,100001299949,10000020999973,

%T 1000001789999791,100000000699999559,10000000036999999769,

%U 1000000001669999999563,100000000001899999999967

%N Product of the smallest and largest n-digit primes.

%H Chris Caldwell, <a href="http://www.utm.edu/research/primes/lists/small/10000.txt">The First 10,000 Primes</a>.

%e The first term is 14 since it is the product of 2 and 7, which are the smallest and largest 1-digit primes.

%t 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 *)

%K nonn,base

%O 1,1

%A _Parthasarathy Nambi_, Apr 01 2005

%E More terms from _Robert G. Wilson v_, Feb 10 2006