L := [1,3,5,9,3];

LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSJMR0YoNyciIiIiIiQiIiYiIipGMDcjRi4=

L[2];

IiIk

nops(L);

IiIm

Calculate the polynomial LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYtLUkobWZlbmNlZEdGJDYkLUYjNictSSNtaUdGJDYlUSJ4RicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2LVEoJm1pbnVzO0YnL0Y4USdub3JtYWxGJy8lJmZlbmNlR1EmZmFsc2VGJy8lKnNlcGFyYXRvckdGQi8lKXN0cmV0Y2h5R0ZCLyUqc3ltbWV0cmljR0ZCLyUobGFyZ2VvcEdGQi8lLm1vdmFibGVsaW1pdHNHRkIvJSdhY2NlbnRHRkIvJSdsc3BhY2VHUSwwLjIyMjIyMjJlbUYnLyUncnNwYWNlR0ZRLUkjbW5HRiQ2JFEiMUYnRj4vJStleGVjdXRhYmxlR0ZCRj5GPi1GOzYtUScmc2RvdDtGJ0Y+RkBGQ0ZFRkdGSUZLRk0vRlBRJjAuMGVtRicvRlNGaG4tRiw2JC1GIzYnRjBGOi1GVTYkUSIzRidGPkZYRj5GPkZaLUYsNiQtRiM2J0YwRjotRlU2JFEiNUYnRj5GWEY+Rj5GWi1GLDYkLUYjNidGMEY6LUZVNiRRIjlGJ0Y+RlhGPkY+RlpGam5GWEY+ x;

SSJ4RzYi

PROD := proc(L::list,x::name) local f,r; f := 1; for r in L do f := f*(x-r); od : f; end;

LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSVQUk9ER0YoZio2JCdJIkxHRihJJWxpc3RHRiYnSSJ4R0YoSSVuYW1lR0YmNiRJImZHRihJInJHRihGKEYoQyU+OCQiIiI/JjglOSRJJXRydWVHRiY+RjsqJkY7RjwsJjklRjxGPiEiIkY8RjtGKEYoRig3I0Yu

f := PROD(L,y);

LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSJmR0YoKiosJkkieUdGKCIiIiEiIkYxRjEsJkYwRjEhIiRGMSIiIywmRjBGMSEiJkYxRjEsJkYwRjEhIipGMUYxNyNGLg==

eval(f,y=2);

IiNA

isprime(13);

SSV0cnVlRyUqcHJvdGVjdGVkRw==

isprime(14);

SSZmYWxzZUclKnByb3RlY3RlZEc=

Find the first prime > n. NP := proc(nn::integer) local n; n := nn; if n<2 then return 2 fi; n:=n+1; while not isprime(n) do n := n+1 od; n; end: NP(20);

IiNC

nextprime(20);

IiNC

prevprime(2^62);

IjRaeVFGJT1nbzZZ

f := x^3-3*x^2+2*x-5+2*x^6;

LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSJmR0YoLCwqJEkieEdGKCIiJyIiIyokRjAiIiQiIiIqJEYwRjIhIiRGMEYyISImRjU3I0Yu

Test if all the coefficients in f are +ve L := [coeffs(f,x)];

LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSJMR0YoNyciIiMiIiIhIiRGLyEiJjcjRi4=

ALLPOS := proc(f::polynom) local S,c; S := {coeffs(f,indets(f))}; for c in S do if c<0 then return false; fi; od; true; end : ALLPOS(f);

SSZmYWxzZUclKnByb3RlY3RlZEc=

g := 2*x+3*y;

LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSJnR0YoLCZJInhHRigiIiNJInlHRigiIiQ3I0Yu

ALLPOS(g);

SSV0cnVlRyUqcHJvdGVjdGVkRw==

f := 2*y*exp(-x)-exp(-x);

LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSJmR0YoLCYqJkkieUdGKCIiIi1JJGV4cEdGJTYjLCRJInhHRighIiJGMSIiI0YyRjc3I0Yu

indets(f);

PCVJInhHNiJJInlHRiQtSSRleHBHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRiQ2IywkRiMhIiI=