|
|
A104226
|
|
Product of the smallest and largest n-digit primes.
|
|
0
|
|
|
14, 1067, 100697, 10062757, 1000609937, 100001299949, 10000020999973, 1000001789999791, 100000000699999559, 10000000036999999769, 1000000001669999999563, 100000000001899999999967
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|