|
Search: id:A120160
|
|
|
| A120160 |
|
a(n)=ceiling( sum_{i=1..n-1} a(i)/4), a(1)=1. |
|
+0
6
|
|
| 1, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 8, 10, 12, 15, 19, 24, 30, 37, 47, 58, 73, 91, 114, 142, 178, 222, 278, 347, 434, 543, 678, 848, 1060, 1325, 1656, 2070, 2588, 3235, 4043, 5054, 6318, 7897, 9871, 12339, 15424, 19280, 24100, 30125, 37656, 47070, 58838, 73547
(list; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
MATHEMATICA
|
f[s_] := Append[s, Ceiling[Plus @@ s/4]]; Nest[f, 1, 53] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Cf. A112088, A011782, A073941, A072493, A120170, A120178, A120186, A120194, A120202.
Adjacent sequences: A120157 A120158 A120159 this_sequence A120161 A120162 A120163
Sequence in context: A015753 A005686 A118082 this_sequence A017980 A064650 A130083
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Graeme McRae (g_m(AT)mcraefamily.com), Jun 10 2006
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(at)rgwv.com), Jul 07 2006
|
|
|
Search completed in 0.002 seconds
|
