OFFSET
2,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 2..1000
MATHEMATICA
snd[lst_]:=First[SortBy[lst, DivisorSigma[0, #]&]]; snd/@(Range[#[[1]]+1, #[[2]]- 1]&/@Partition[Prime[Range[2, 60]], 2, 1]) (* Harvey P. Dale, Jul 06 2014 *)
PROG
(PARI) for(n=2, 100, m=99999:r=0:for(k=prime(n)+1, prime(n+1)-1, if(!isprime(k), if(numdiv(k)<m, r=k:m=numdiv(k)))):print1(r", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 07 2002
EXTENSIONS
More terms from Ralf Stephan, Mar 23 2003
STATUS
approved