OFFSET
0,1
FORMULA
a(n) << A002110(n)^10 by the CRT and Xylouris' improvement to Linnik's theorem. - Charles R Greathouse IV, Apr 29 2015
EXAMPLE
a(3) = 101 because 101 is prime and none of 101 - 1 = 100, 101 - 2 = 99, and 101 - 3 = 98 are squarefree.
MAPLE
p:= 2:
A[0]:= 2:
m:= 0:
while p < 10^6 do
p:= nextprime(p);
for k from 1 while not numtheory:-issqrfree(p-k) do od:
if k > m+1 then
for j from m+1 to k-1 do A[j]:= p od:
m:= k-1;
fi
od:
seq(A[i], i=0..m); # Robert Israel, Apr 29 2015
PROG
(PARI) a(n)=forprime(p=2, , for(k=1, n, if(issquarefree(p-k), next(2))); return(p)) \\ Charles R Greathouse IV, Apr 29 2015
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Apr 29 2015
EXTENSIONS
a(9)-a(11) from Charles R Greathouse IV, Apr 29 2015
STATUS
approved