Anonymous user
Arithmetic numbers: Difference between revisions
→{{header|Maxima}}
imported>Maxima enthusiast No edit summary |
imported>Maxima enthusiast |
||
Line 1,976:
/* Number of composites among the first 1000 arithmetic numbers */
block(rest(arith_num_count(1000)),sublist(%%,lambda([x],primep(x)=false)),length(%%));
/* Number of composites among the first 10000 arithmetic numbers */
block(rest(arith_num_count(10000)),sublist(%%,lambda([x],primep(x)=false)),length(%%));
</syntaxhighlight>
{{out}}
Line 1,989:
12953
782
8458
</pre>
|