5 lines
97 B
Text
5 lines
97 B
Text
|
ClearAll[Fermat]
|
||
|
|
Fermat[n_] := 2^(2^n) + 1
|
||
|
|
Fermat /@ Range[0, 9]
|
||
|
|
Scan[FactorInteger /* Print, %]
|