29 Dec
2017
29 Dec
'17
9:38 a.m.
Either that, or 1 is a prime number: In[375]:= Cases[FactorInteger@Range@22, {{p_, 1}} -> p] Out[375]= {1, 2, 3, 5, 7, 11, 13, 17, 19} In[376]:= FindSequenceFunction@% Out[376]= FindSequenceFunction[{1, 2, 3, 5, 7, 11, 13, 17, 19}] In[377]:= FindSequenceFunction@Rest@%% Out[377]= Prime You should be embarrassed for all the damage to young students. Who might well ask: Why isn't it {{1,69}}? Can Maple be this stupid? Does it matter? €2,700.00 + €540.00 regular yearly upgrade ?? Macsyma: (c1) MAKELIST(FACTOR_NUMBER(N),N,1,9); 1 1 2 1 1 1 1 3 2 (d1) [[], [2 ], [3 ], [2 ], [5 ], [2 , 3 ], [7 ], [2 ], [3 ]] (c2) BLOCK([FANCY_DISPLAY : FALSE],PLAYBACK([1,2])); --Bill