|
Search: id:A128023
|
|
| |
|
| 1, 1, 1, 2, 3, 5, 9, 16, 28, 51, 92, 169, 312, 580, 1082, 2029, 3819, 7214, 13669, 25971, 49468, 94439, 180666, 346277, 664852, 1278561, 2462414, 4748941, 9170369, 17729380, 34314929, 66485175, 128940946, 250297130, 486291567, 945566936
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
FORMULA
|
a(1)=1, a(n) = ceiling(sum{k=1 to n-1} A128022(k) /n).
|
|
MATHEMATICA
|
f[l_List] := Block[{n = Length[l] + 1}, Append[l, Ceiling[Sum[k*l[[k]], {k, n - 1}]/n]]]; Nest[f, {1}, 36] (*Chandler*)
|
|
CROSSREFS
|
Cf. A128022.
Adjacent sequences: A128020 A128021 A128022 this_sequence A128024 A128025 A128026
Sequence in context: A002572 A114834 A143961 this_sequence A056303 A000048 A074099
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Leroy Quet Feb 11 2007
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 12 2007
|
|
|
Search completed in 0.002 seconds
|
