OFFSET
1,1
MAPLE
a:=proc(n) local m, p; p:=ithprime(n); for m from 2 do if nextprime(p*m)>p*(m+1) then return m; fi; od: end proc:
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
W. Edwin Clark, Mar 29 2010
EXTENSIONS
Terms from a(37) on from R. J. Mathar, Apr 15 2010
STATUS
approved