OFFSET
1,1
COMMENTS
PROG
(PARI) list_A160218(n)={ my(a1=1, a2=1, S=[]); until( isprime(a1) & !print1(#S, ", ") & !n--, for( a=1, 9e9, a*a1%a2 & next; setsearch(S, a) & next; a2=a1; S=setunion(S, Set(a1=a)); /*print1(a", "); */ next(2)); error); vecsort(eval(S)) }
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
M. F. Hasler, May 06 2009
EXTENSIONS
Edited by N. J. A. Sloane, May 16 2009
STATUS
approved