|
|
A046698
|
|
a(0) = 0, a(1) = 1, a(n) = a(a(n-1)) + a(a(n-2)) if n > 1.
|
|
17
|
|
|
0, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
|
|
REFERENCES
|
Sequence proposed by Reg Allenby.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
CoefficientList[Series[x (1 + x^2)/(1 - x), {x, 0, 104}], x] (* or *)
Nest[Append[#, #[[#[[-1]] + 1]] + #[[#[[-2]] + 1 ]]] &, {0, 1}, 105] (* Michael De Vlieger, Jul 31 2020 *)
|
|
PROG
|
(PARI) a(n)=(n>0)+(n>2)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|