RosettaCodeData/Task/Bernoulli-numbers/Mathematica/bernoulli-numbers-2.math
2015-02-20 09:02:09 -05:00

2 lines
77 B
Text

Table[{i, BernoulliB[i]}, {i, 0, 60}];
Select[%, #[[2]] != 0 &] // TableForm