🚀 go-pugleaf

$BBg:e650iBg$N1[6M$G$9!#(J

In article <1992Sep12.063153.18984@kudpc.kyoto-u.ac.jp> f51323@sakura.kudpc.kyoto-u.ac.jp (inoue kouichi) writes:
>  $BA0%]%9%H$r$7$?$"$H$G!"<+J,$J$j$K$$$m$$$m9M$($F$_$^$7$?$,!"$I$&$b463P(J
>$B$,DO$a$J$$$N$G!"$h$m$7$+$C$?$i!">\$7$/2r@b$7$F$$$?$@$1$J$$$G$7$g$&$+!#(J

$B1J9>$5$s$H6aF#$5$s$K$h$C$F!V7k!JBe?tBN$N@0?tO@!)JT(J)$B!W$,!"(J
$BM?$($i$l$F$$$^$9!#0f>e$5$s$N$*$?$:$M$O!"1J9>$5$s$NEz$N2r@b$@$H(J
$B$O;W$$$^$9$,!&!&!&0J2<$K$"$2$k$N$O$H$F$bE%=-$$$d$jJ}$G62=L$G$9!#!!(J
 
$B!V7k!J?^7AJT!K!W(J
$BFsJU$ND9$5$,(J A, B $B$G$=$N$O$5$`3Q$,&H$NJ?9T;MJU7A$rC10L3J;R$H$7$^$9!#(J
$B4JC1$N$?$a(J A=1 $B$H$7$^$9!#(J($BJ?LL$rJ#AGJ?LL$H$_$J$7!"5u?tC10L$O(J I $B$G$9!#(J)
$B$3$N$H$-G$0U$N3J;RE@$O!"(Ji + j *B*Exp[I$B&H(J] {i,j | integer} $B$H$J$j$^$9!#(J

$B86E@$H>e$N3J;RE@$r7k$V%Y%/%H%k$r!"Aj;w?^7A$N(J A $BJU$H$9$k$H!"(JB $BJU$O86E@(J
$B$+$i!"3J;RE@(J (i + j *B*Exp[I$B&H(J]) * B*Exp[I$B&H(J] $B$X$N%Y%/%H%k$H$J$j$^$9!#(J
$B$3$N3J;RE@$,(J k + l *B*Exp[I$B&H(J] {k,l | integer} $B$N7A$K$J$l$P$h$$$N$G$9!#(J

$B$3$l$h$j!"$D$.$N#2$D$N>r7o$,$($i$l$^$9!#(J
 B = Sqrt[n] (n:integer) $B!((J $B&H(J = ArcCos[m/Sqrt[4*n]] (m:integer)
$B$^$?!"86E@$+$iG$0U$N3J;RE@$^$G$N5wN%$NFs>h!"(J($B$9$J$o$AAj;w?^7A$N(J
$BC10L3J;R$KBP$9$kLL@QHf(J)$B$O!"(JAbs[ i + j *B*Exp[I$B&H(J] ] ^2 = 
 i^2 + m*i*j + n*j^2$B!!(J( 4*n >= m*m ) $B$H@0?t$K$J$j$^$9!#(J

$B!V7k!J$7$D$3$$<XB-JT!K!W(J
 kousi[n_,m_]:= 
 Take[Union[Flatten[Table[i^2 + m i*j + n j^2,{i,0,16},{j,0,16}]]],16]

Do[Print[kousi[n,0]],{n,1,4}]
{0, 1, 2, 4, 5, 8, 9, 10, 13, 16, 17, 18, 20, 25, 26, 29}   --> Quiz 1
{0, 1, 2, 3, 4, 6, 8, 9, 11, 12, 16, 17, 18, 19, 22, 24}  
{0, 1, 3, 4, 7, 9, 12, 13, 16, 19, 21, 25, 27, 28, 31, 36}  --> Quiz 2
{0, 1, 4, 5, 8, 9, 13, 16, 17, 20, 25, 29, 32, 36, 37, 40}

Do[Print[kousi[n,1]],{n,1,4}]
{0, 1, 3, 4, 7, 9, 12, 13, 16, 19, 21, 25, 27, 28, 31, 36}  --> Quiz 2
{0, 1, 2, 4, 8, 9, 11, 14, 16, 18, 22, 23, 25, 28, 32, 36}
{0, 1, 3, 4, 5, 9, 12, 15, 16, 20, 23, 25, 27, 31, 33, 36}
{0, 1, 4, 6, 9, 10, 16, 19, 24, 25, 31, 34, 36, 40, 46, 49}

$BLdBj$,$I$s$I$s$G$-$k!&!&!&!!(J*_*;;

K. Koshigiri
koshi@cc.osaka-kyoiku.ac.jp