OFFSET
1,1
COMMENTS
Also records of A295185.
PROG
(PARI) isok(k, n) = my(f=factor(k)); sum(j=1, #f~, f[j, 1]*f[j, 2]) == n;
scompo(n) = forcomposite(k=4, , if (isok(k, n), return(k)));
lista(nn) = {my(last = 0); forprime(p=4, nn, my(val = scompo(p)); if (val > last, print1(val, ", "); last = val); ); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Feb 24 2018
STATUS
approved