OFFSET
0,3
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 0..10000
MAPLE
A130856 := proc(n) option remember: if(n=0)then return 1:fi: return ((add(procname(k)*procname(n-1-k), k=0..n-1)-1) mod 9) + 1 end: seq(A130856(n), n=0..100); # Nathaniel Johnston, May 05 2011
MATHEMATICA
droot[n_]:=NestWhile[Total[IntegerDigits[#]]&, n, #>9&]; droot/@CatalanNumber[ Range[ 0, 100]] (* Harvey P. Dale, Apr 09 2022 *)
PROG
(PARI) a(n) = (binomial(2*n, n)/(n+1)-1)%9 + 1; \\ Michel Marcus, Nov 28 2022
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
N. J. A. Sloane, Aug 21 2007
EXTENSIONS
Name corrected by Nathaniel Johnston, May 05 2011
STATUS
approved