OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[2048], IntegerQ[((#-1)!!-1)/# ]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Apr 18 2007
STATUS
approved