OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..400
PROG
(PARI) smooth(P:vec, lim)=my(v=List([1]), nxt=vector(#P, i, 1), indx, t); while(1, t=vecmin(vector(#P, i, v[nxt[i]]*P[i]), &indx); if(t>lim, break); if(t>v[#v], listput(v, t)); nxt[indx]++); Vec(v);
ok(p)=p=p%24; p==1 || p==5 || p==7 || p==11;
A192013(n)=sumdivmult(n, d, kronecker(-6, d));
list(lim)=my(u=List([1]), v=[5], r, t); forprime(p=7, , if(ok(p), if(v[#v]*p>lim, break); v=concat(v, v[#v]*p))); v=smooth(v, lim); for(i=2, #v, t=A192013(v[i]); if(t>r, r=t; listput(u, v[i]))); Vec(u)
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, Dec 14 2016
STATUS
approved