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