|
|
A022858
|
|
a(n) = [ a(n-1)/a(1) ] + [ a(n-2)/a(2) ] + ... + [ a(1)/a(n-1) ], for n >= 3.
|
|
4
|
|
|
1, 1, 2, 3, 5, 9, 15, 27, 47, 85, 151, 272, 486, 874, 1569, 2819, 5063, 9098, 16345, 29369, 52769, 94817, 170368, 306125, 550055, 988364, 1775934, 3191079, 5733875, 10302889, 18512702, 33264474, 59771136, 107399532, 192980424
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ c * d^n, where d = 1.796846081832011885192668410985515255731636421943246338224794879636345148930..., c = 0.23857918741881541389297836615021092368805310388766212799501511093330834... - Vaclav Kotesovec, May 22 2019
|
|
MATHEMATICA
|
Clear[a]; a[n_] := a[n] = If[n == 1, 1, Sum[Floor[a[n-k]/a[k]], {k, 1, n-1}]]; Table[a[n], {n, 1, 40}] (* Vaclav Kotesovec, May 22 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|