|
|
|
|
6, 10, 28, 52, 76, 184, 248, 376, 424, 488, 584, 664, 1335, 3729, 3801, 6501, 7385, 9669, 10461, 16345, 17815, 26571, 27895, 28479, 45237, 69485, 81835, 123411, 124345, 140465, 207005, 341665, 361749, 396815, 526809, 592491, 890165, 977727, 1377485, 1992215, 2186585
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|