🚀 go-pugleaf

In article <1992Dec8.011414.25741@creo-rd.co.jp> suzuki@creo-rd.co.jp.UUCP (Toshitaka Suzuki) writes:
>$B!!!!<!$N?tNs$O$I$&$$$&0UL#$r;}$C$F$$$k$G$7$g$&!#(J
>	2  3  4  3  5  6  7  5  8  9  10  7  11  12  5  13
>	9  14  15  16  11  17  7  18  19  13  20  21  22
>	15  $B!&!&!&!!!JL58B$KB3$-$^$9!K(J
>
>$B3N$+$K$"$C$F$^$9$M!#:G=i!";d$N9M$($F$$$k0UL#$H0c$&$N$G!V$3$s$JLdBj$K(J
>$BJL2r$,$"$k$N$+!)!W$H;W$$$^$7$?$,!"$h!<$/9M$($F$_$k$HF1$8$3$H$G$7$?!#(J
>$B$3$N?tNs$N$b$H$b$H$N0UL#$O!"(J
>$B!V#20J>e$NHsAG?t$N!"<+J,<+?H0J30$N:GBg$NLs?t$N?tNs!W(J
>$B$G$7$?!#(J

$B$U!<$`$=$&$@$C$?$N$+!"$H$"$i$?$a$F$*$I$m$$$F$^$9!#(J
$B$?$7$+$KF1$8$G$9$,!"$[$s$H$N@52r$^$G$b$&$A$g$C$H$G$7$?!#(J
$B$H$9$k$H!"$b$C$H4JC1$KI=8=$G$-$^$7$?!#(J($B<XB-$N(JMathematica script)

In[1]:= suzuki[n_]:=
        Select[Table[i/FactorInteger[i][[1,1]],{i,2,n}],#>1&]
In[2]:= suzuki[45]
Out[2]= {2, 3, 4, 3, 5, 6, 7, 5, 8, 9, 10, 7, 11, 12, 5, 13, 9, 
         14, 15, 16, 11, 17, 7, 18, 19, 13, 20, 21, 22, 15}
--
  $BBg:e650iBg3X!!1[6MT"M:(J
koshi@cc.osaka-kyoiku.ac.jp