OFFSET
1,1
PROG
(PARI) n=1:v=vector(100, k, n=n+1:while(isprime(n), n=n+1):n):for(l=1, 100, forprime(p=2, 10000, if((p%v[l])==1, print1(p", "):break)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 13 2002
EXTENSIONS
More terms from Ralf Stephan, Mar 20 2003
STATUS
approved