OFFSET
1,1
LINKS
Benoit Cloitre, Plot of a(n)/n^2
FORMULA
a(n)=2+sum(k=1,n,A205600(k)*(k-1)). It seems that a(n)=c*n^2+smaller terms with c=0.64...(see graphic provided in the link)
PROG
(PARI) (to get the first 100 terms) v=[1, 2]; L=[2]; for(n=2, 100, v=if(v[n]-2, concat(v, vector(n-1, i, v[i])), concat(concat(v, vector(n-1, i, v[i])), vector(n-1, i, v[i]))); L=concat(L, [length(v)])); a(n)=L[n]
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 10 2013
STATUS
editing