|
|
|
|
33, 65, 81, 97, 129, 109, 161, 177, 321, 133, 225, 257, 193, 161, 305, 205, 369, 193, 253, 401, 417, 253, 449, 465, 277, 641, 561, 349, 609, 801, 641, 289, 397, 397, 705, 289, 737, 785, 801, 481, 353, 469, 385, 337, 929, 945, 977, 2241, 565, 1041, 1281, 1089, 613, 1121, 637, 1137, 481, 1185, 673, 685, 1265, 709, 1281, 421, 2717, 545, 1601
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI)
up_to = 25000;
isA228058(n) = if(!(n%2)||(omega(n)<2), 0, my(f=factor(n), y=0); for(i=1, #f~, if(1==(f[i, 2]%4), if((1==y)||(1!=(f[i, 1]%4)), return(0), y=1), if(f[i, 2]%2, return(0)))); (y));
A228058list(up_to) = { my(v=vector(up_to), k=0, n=0); while(k<up_to, n++; if(isA228058(n), k++; v[k] = n)); (v); };
v228058 = A228058list(up_to);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|