OFFSET
1,2
REFERENCES
S. R. Finch, Mathematical Constants, Cambridge, 2003, p. 381.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..400
FORMULA
a(n) ~ c / r^n, where r = A347901 = 0.576148769142756602297868573719938782354724663118974... is the lowest root of the equation Sum_{k>=0} (-1)^k * r^(k^2) / QPochhammer(r, r, k) = 0 and c = 0.6149126319329581124890112676009720339906790088212712130894... - Vaclav Kotesovec, May 01 2014, updated Sep 09 2020
MAPLE
b:= proc(n, r, f) option remember; `if`(n=0, `if`(f-1<=r, 1, 0),
add(b(n-i, i, f), i=1..min(r+1, n)))
end:
a:= n-> add(b(n-i, i, i), i=1..n):
seq(a(n), n=1..40); # Alois P. Heinz, Dec 15 2009
MATHEMATICA
b[n_, r_, f_] := b[n, r, f] = If[n == 0, If[f - 1 <= r, 1, 0], Sum[b[n - i, i, f], {i, 1, Min [r + 1, n]}]];
a[n_] := Sum[b[n - i, i, i], {i, 1, n}];
Array[a, 40] (* Jean-François Alcover, Nov 10 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Nov 25 2009
EXTENSIONS
More terms from Alois P. Heinz, Dec 15 2009
STATUS
approved