A300098 Records of A288814.
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
Offset: 1
Keywords
Programs
-
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););}
Comments