OFFSET
1,1
MATHEMATICA
Select[ Range[468], Mod[Binomial[2#, # ], (# - 1)] == 0 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 11 2004
STATUS
approved