OFFSET
1,1
PROG
(PARI) { p=vector(1000, i, prime(i+1)); p[1]=0; cp=3; while (cp<500, i=1; while (p[i]==0, i++); x=p[i]%cp; print1(", "x); for (j=1, 1000, if (p[j]%cp==x, p[j]=0)); cp=nextprime(cp+1)) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Apr 06 2004
EXTENSIONS
Edited by Don Reble, Nov 07 2005
STATUS
approved