|
|
A099729
|
|
a(n) = a(n-1)^2 + a(floor(n/2))^2; a(0) = 1.
|
|
0
|
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ c^(2^n), where c = 1.6960426326108078452611100055735661068469295099996784988263600567400352165... . - Vaclav Kotesovec, Dec 18 2014
|
|
MATHEMATICA
|
a = ConstantArray[0, 10]; a[[1]]=2; Do[a[[n]] = a[[n-1]]^2 + a[[Floor[n/2]]]^2, {n, 2, 10}]; Flatten[{1, a}] (* Vaclav Kotesovec, Dec 18 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|