OFFSET
1,1
PROG
(PARI) { P=Set([2, 3]); u=2; v=3; for(i=1, 100, k=ceil(v/u); while( !ispseudoprime(t=k*u-v) || setsearch(P, t), k++); P=setunion(P, Set([t])); u=v; v=t; print1(k, ", ") ) } \\ Max Alekseyev, Dec 13 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 15 2005
EXTENSIONS
More terms from Franklin T. Adams-Watters, Jul 17 2006
More terms from Max Alekseyev, Dec 13 2011
STATUS
approved