A341803 a(n) is the least k such that A076620(k) = n.

1, 2, 7, 24, 72, 203, 564, 1556, 4274, 11709, 32021, 87463, 238691

Offset: 0

Author

David A. Corneth, Feb 20 2021

Keywords

• nonn
• more

Comments

Conjecture: Starting at 7, terms coincide with A309237 - 1. - Hugo Pfoertner, Feb 21 2021

Examples

			a(4) = 24 as A076620(24) = 4 while A076620(k) < 4 for k < 24.
		

Crossrefs

Cf. A076620.

Programs

Mathematica

With[{s = Array[-1 + FirstPosition[#, Max[#]][[1]] &@ CoefficientList[Pochhammer[x, #]/x, x] &, 600]}, {1}~Join~Array[-1 + FirstPosition[s, #][[1]] &, Max@ s]] (* Michael De Vlieger, Feb 22 2021 *)

PARI

first(n) = {res = vector(n); res[1] = 1; my(r = 1); print1(1", "); v = [1]; for(i = 1, oo, v = concat(0, v) + concat(v, 0)*i; if(#v > n, v = v[^-1]; ); for(j = r + 1, #v, if(v[j] > v[j - 1], r++; res[r] = i; print1(i", "); if(r >= n, return(res); ) , next ))); res }

Formula

a(n) ~ c*e^n.