RosettaCodeData/Task/Bernoulli-numbers/Maple/bernoulli-numbers.maple

print(select(n->n[2]<>0,[seq([n,bernoulli(n,1)],n=0..60)]));