OFFSET
1,1
COMMENTS
Indices for which a(n)<a(n-1) are 30, 48, 66, 80, 95, 100, 125, 127, 132, 137, 150, 157, 159, 193,... - M. F. Hasler, Nov 23 2008
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
nxtp[n_]:=NestWhile[NextPrime[#]&, n, !SquareFreeQ[#-n]&]; nxtp/@Prime[Range[60]] (* Harvey P. Dale, Apr 23 2011 *)
PROG
(PARI) A152075(n)=local( p=prime(n), q=p); until( issquarefree(q-p), q=nextprime(q+1)); q \\ M. F. Hasler, Nov 23 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 23 2008
EXTENSIONS
Terms beyond a(13) from M. F. Hasler and Ray Chandler, Nov 23 2008
STATUS
approved