OFFSET
1,2
FORMULA
EXAMPLE
32 is the eighth smallest number expressible as a product of members of {4,6,8,12,20}, namely as 4x8. The largest square divisor of 32 is 16. 32/16=2, so a(8)=2.
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(core(n), ", "); vp = concat(vp, n); ); ); } \\ Michel Marcus, Feb 03 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Neil Fernandez, Jul 04 2001
EXTENSIONS
More terms from Michel Marcus, Feb 03 2015
STATUS
approved