🚀 go-pugleaf

In article <1992Dec3.010355.8464@creo-rd.co.jp> suzuki@creo-rd.co.jp (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

$B1[6M!wBg:e650iBg$G$9!#(J

$BNkLZ!w%/%l%*#R!u#D$5$s$N%/%$%:$N0&9%<T$N0l?M$G$9!#(J
$B$J$+$J$+Fq$7$+$C$?$N$G$9$,!"$3$&$G$O$J$$$G$7$g$&$+!#(J

$B$^$:!"#2$+$i;O$^$j#1$E$DA}$($k@0?t$N?tNs$r9M$($^$9!#(J

$B$D$.$K!"NYF1;N$N#29`$r=g$K2C$($F$f$-!"$3$l$,AG?t$+(J
$B$I$&$+D4$Y$^$9!#AG?t$J$i$P$=$N$^$^$G$9!#$b$7!"AG?t(J
$B$G$J$1$l$P!"$3$l$r3d$j@Z$l$k:G>.$NAG?t$G3d$C$?>&$r(J
$B?tNs$N#2$D$N9`$N4V$K$O$5$_$^$9!#=>$C$F!"B3$-$O!"(J

$B!P(J23, 24, 7, 25, 17, 26, 27, 11, 28, 19, 29, 30, ...}
$B$H$J$k$N$G$O$J$$$G$7$g$&$+!)(J

$B!Z<XB-JT![(J

$B$"$^$j$-$l$$$K$+$1$^$;$s$G$7$?$,!"$3$s$J$s$G$I$&$G$7$g$&!#(J

In[1]:= suzuki[n_]:= {i=1; k=2; p[i]=k;
          While[i<=n, i++; k++; p[i]=k;
          If[PrimeQ[q=p[i]+p[i-1]],,
          p[i+1]=p[i]; p[i]=q/FactorInteger[q][[1,1]]; i++
          ];]}
In[2]:= suzuki[45];    
In[3]:= Table[p[i],{i,1,45}]
Out[3]= {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, 23, 
         24, 7, 25, 17, 26, 27, 11, 28, 19, 29, 30, 31, 21, 32}
        
$BAG?t$+?^7A$,$i$_$N3J;RE@$+$I$A$i$+$H$O;W$C$?$N$G$9$,!"(J
$BA0$NLdBj$N;v$,F,$K$"$C$F!"3J;RE@$NJ}$r9M$($F$^$7$?!#(J

--
$B!!Bg:e650iBg3X!!1[6MT"M:(J
koshi@cc.osaka-kyoiku.ac.jp