OFFSET
1,2
COMMENTS
Next term > 1200000.
MATHEMATICA
seq={}; sum=0; fak=1; k=0; While[k<10000, sum+=fak; If[Denominator[sum]==1, AppendTo[seq, k+1]]; k++; fak*=k*(4*k-1)*(4*k-2)*(4*k-3)/4; ]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vaclav Kotesovec, Aug 30 2012
STATUS
approved