RosettaCodeData/Task/Fermat-numbers/Mathematica/fermat-numbers.math

5 lines
97 B
Plaintext

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