|
| |
|
|
A072493
|
|
a(1)=1, a(n)=ceiling((sum_{k=1..n-1} a(k))/3).
|
|
78
| |
|
|
1, 1, 1, 1, 2, 2, 3, 4, 5, 7, 9, 12, 16, 22, 29, 39, 52, 69, 92, 123, 164, 218, 291, 388, 517, 690, 920, 1226, 1635, 2180, 2907, 3876, 5168, 6890, 9187, 12249, 16332, 21776, 29035, 38713, 51618, 68824, 91765, 122353, 163138, 217517, 290023, 386697
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
COMMENTS
| Is this sequence, with its first 8 terms removed, the same as A005427? See also the similar conjecture with A005428/A073941. - Ralf Stephan (ralf(AT)ark.in-berlin.de), Apr 04 2003
|
|
|
FORMULA
| a(n) = ceiling(c*(4/3)^n-1/2) where c=0.389324199524937508840138455...
|
|
|
MATHEMATICA
| f[s_] := Append[s, Ceiling[Plus @@ s/3]]; Nest[f, {1}, 52] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jul 07 2006)
|
|
|
CROSSREFS
| Cf. A073941, A005427.
Sequence in context: A000931 A078027 A134816 * A064324 A173090 A032277
Adjacent sequences: A072490 A072491 A072492 * A072494 A072495 A072496
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Nov 22 2002
|
| |
|
|
