|
| |
| |
|
|
|
1, 3, 6, 10, 11, 14, 20, 30, 41, 55, 75, 105, 146, 201, 276, 381, 527, 728, 1004, 1385, 1912, 2640, 3644, 5029, 6941, 9581, 13225, 18254, 25195, 34776, 48001, 66255, 91450, 126226, 174227
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| Conjecture: a(n)=a(n-1)+a(n-4) with g.f. ( -1-2*x-3*x^2-4*x^3 ) / ( -1+x+x^4 ). - R. J. Mathar, Jul 08 2011
|
|
|
MAPLE
| A138060 := proc() option remember; if n = 1 then return [1] ; else L := procname(n-1) ; a := [] ; for i from 1 to nops(L) do if op(i, L) = 1 then a := [op(a), 1, 2] ; elif op(i, L) <=3 then a := [op(a), op(i, L)+1] ; else a := [op(a), 1] ; end if; end do: end if; a ; end proc:
A138289 := proc(n) add(k, k=A138060(n)) ; end proc: # R. J. Mathar, Jul 08 2011
|
|
|
CROSSREFS
| Sequence in context: A073851 A043321 A123053 * A105359 A105355 A183545
Adjacent sequences: A138286 A138287 A138288 * A138290 A138291 A138292
|
|
|
KEYWORD
| nonn,more
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 02 2008
|
| |
|
|
