Re: Quiz 2

Article View: fj.sci.math

Article #76

#76

From: Kunio Koshigiri
Date: Thu, 03 Sep 1992 05:37

22 lines
1051 bytes

In article <1992Sep3.021043.18308@creo-rd.co.jp> suzuki@creo-rd.co.jp (Toshitaka Suzuki) writes:
>  $B2<5-$N?tNs$G!"8e$KB3$/?t$O!)!!$^$?!"$I$s$J5,B'$N?tNs$G$7$g$&!)(J
>    1  3  4  7  9  12  13  16  19  21  $B!&!&!&(J

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

$B$(!<$C$H!"@5;03Q7A$N3J;RE@>e$K(J
$B$G$-$k@5;03Q7A$NLL@Q$G$O$J$$$+$7$i(J
$BLL@Q$NC10L$OC10L3J;R$N@5;03Q7A$G$9!#(J

$BNc$($P!"(JMathematica $B$G$+$/$H(J($B$"$^$jH~$7$/$J$$$G$9$,(J)

In[1]:=
Take[Union[Flatten[Table[Round[
 Abs[i+j (0.5+.866025 I)]^2],{i,0,9},{j,0,9}]]],20]

Out[1]:=
{0, 1, 3, 4, 7, 9, 12, 13, 16, 19, 21,
25, 27, 28, 31, 36, 37, 39, 43, 48}

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

Technical Details

Message-ID: <218@okds1.osaka-kyoiku.ac.jp>

Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!wnoc-tyo-news!sranha!sranhb!okds1!koshi

References: <1992Sep3.021043.18308@creo-rd.co.jp>

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!wnoc-tyo-news!sranha!sranhb!okds1!koshi
From: koshi@okds1.osaka-kyoiku.ac.jp (Kunio Koshigiri)
Newsgroups: fj.sci.math
Subject: Re: Quiz 2
Message-ID: <218@okds1.osaka-kyoiku.ac.jp>
Date: 3 Sep 92 05:37:13 GMT
References: <1992Sep3.021043.18308@creo-rd.co.jp>
Distribution: fj
Organization: Osaka Kyoiku University
Lines: 22

Reply to Parent Message