OFFSET
1,1
COMMENTS
Conjecture: No term is zero. Subsidiary Sequence: Number of primes in floor((10^n)/p), p is a prime. a(1) = 3, the primes are 10/2, floor(10/3) and 10/5.
LINKS
Robert Israel, Table of n, a(n) for n = 1..1800
EXAMPLE
a(5) = 89, as floor((10^5)/89) = 1123 is the largest such prime.
MAPLE
f:= proc(n) local t, p;
t:= 10^n;
p:= 1;
while p < t/2 do
p:= nextprime(p);
if isprime(floor(t/p)) then return p fi
od;
0
end proc:
map(f, [$1..50]); # Robert Israel, Jul 30 2023
MATHEMATICA
<<NumberTheory`; Do[k = 2; While[ !PrimeQ[Floor[10^n / k]], k = NextPrime[k]]; Print[k], {n, 1, 50}] (* Ryan Propper, Jun 19 2005 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Dec 07 2003
EXTENSIONS
Corrected and extended by Ryan Propper, Jun 19 2005
STATUS
approved