OFFSET
0,1
COMMENTS
LINKS
Daniel Suteu, Table of n, a(n) for n = 0..36
EXAMPLE
a(0) = 2 since 2*1 > 1 = 10^0;
a(1) = 5 since 5*3 = 15 > 10^1;
a(2) = 17 since 17*6 = 102 > 10^2;
a(3) = 59 since 59*17 = 1003; etc.
MATHEMATICA
f[n_] := Block[{k = 1}, While[k*Prime[k] < 10^n, k++]; Prime[k]]; Array[f, 15, 0]
PROG
(PARI) a(n) = my(i=0); forprime(p=1, , i++; if(i*p > 10^n, return(p))) \\ Felix Fröhlich, Feb 26 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 25 2019
STATUS
approved