OFFSET
1,1
COMMENTS
Sequence contains 2,4,6,8, only.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local L, r;
L:= convert(n, base, 3);
r:= 2 &^ numboccur(1, L) mod 5;
r + 5*(r mod 2)
end proc:
map(f, [$1..200]); # Robert Israel, Jun 11 2018
MATHEMATICA
Mod[#, 10]&/@Table[Binomial[2n, n], {n, 800}]/.(0->Nothing) (* Harvey P. Dale, Apr 14 2018 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Benoit Cloitre, Aug 18 2002
STATUS
approved