OFFSET
1,1
LINKS
Y. More, Problem 11165, Amer. Math. Monthly, 112 (2005), 568.
MAPLE
c:=n->binomial(2*n, n)/(n+1): s:=0: for n from 1 to 1500 do s:=s+c(n): a[n]:=s mod 3: od: A:=[seq(a[n], n=1..1500)]: p:=proc(n) if A[n]=2 then n else fi end: seq(p(n), n=1..1500); # Emeric Deutsch, Jun 12 2005
MATHEMATICA
s0 = s2 = {}; s = 0; Do[s = Mod[s + (2 n)!/n!/(n + 1)!, 3]; Switch[ Mod[s, 3], 0, AppendTo[s0, n], 2, AppendTo[s2, n]], {n, 1055}]; s2 (* Robert G. Wilson v, Jun 14 2005 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jun 11 2005
EXTENSIONS
More terms from Emeric Deutsch, Jun 12 2005
STATUS
approved