function nroot(x,n) { if (n>0) { return 10^(log(x)/n); } } print nroot(27,3);

function nsigma(n) { return n*(n+1)/2; } ttl=0; for(i=1;i<11;i++) { ttl=ttl+i; print "i=",i," ttl=",ttl,"\n"; } print "ttl=",ttl, " nsigma=", nsigma(10);

function n2sigma(n) { return n*(2*n+1)*(n+1)/6; } ttl=0; for(i=1;i<11;i++) { ttl=ttl+i*i; print i,"^2=",i*i," ttl=",ttl,"\n"; } print "ttl=",ttl, " n2sigma=", n2sigma(10);

c^2=a^2+b^2;を満足する整数a,b,cをピタゴラス数と言います。 サンプルのsは３以上の奇数を指定します。

s=9; for(w=s; w>1; w=w-2) { for(t=w-2; t>0; t=t-2) { a=w*t; b=(w*w - t*t)/2; c=(w*w + t*t)/2; print "c=",c," a=", a, " b=", b, "\n"; } }

pを素数とした場合、どんな数xに対してもx^(p-1)をpで 割った余りは1になる。

p=7; for(i=156; i<160; i++) { w=i^6; print i,"^",(p-1),"=",w," m=", w%%p ,"\n"; }