OFFSET
1,1
PROG
(PARI) ismult(n, v, vp) = {for (k=1, #v, q = n/v[k]; if ((type(q)== "t_INT") && vecsearch(vp, q), return (1)); ); }
lista(nn) = {v = [4, 6, 8, 12, 20]; vp = []; for (n=2, nn, if (vecsearch(v, n) || ismult(n, v, vp), print1(n, ", "); vp = concat(vp, n); ); ); } \\ Michel Marcus, Feb 03 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Neil Fernandez, Jul 02 2001
EXTENSIONS
More terms from Michel Marcus, Feb 03 2015
STATUS
approved