login
A371555
Smallest position m such that A005350(m)=n.
1
1, 4, 6, 9, 10, 14, 15, 17, 22, 23, 24, 26, 29, 35, 36, 37, 39, 40, 42, 45, 49, 56, 57, 58, 59, 61, 62, 64, 67, 68, 70, 73, 77, 82, 90, 91, 92, 93, 95, 96, 97, 99, 100, 102, 105, 106, 108, 111, 115, 116, 118, 121, 125, 130, 136, 145, 146, 147, 148, 149, 151, 152, 153, 155
OFFSET
1,2
COMMENTS
Greedy inverse of A005350.
LINKS
Michael De Vlieger, Log log scatterplot of a(n), n = 1..2^20.
MAPLE
A371555 := proc(n)
local a;
for a from 1 do
if A005350(a) = n then
return a;
end if;
end do:
end proc:
seq(A371555(n), n=1..100);
MATHEMATICA
r = 0; a[1] = a[2] = a[3] = 1; a[n_] := a[n] = a[a[n - 1]] + a[n - a[n - 1]]; Reap[Do[If[a[n] > r, Sow[n]; r = a[n]], {n, 155}]][[-1, 1]] (* Michael De Vlieger, Mar 27 2024, after Jean-François Alcover at A005350 *)
CROSSREFS
Sequence in context: A233182 A028260 A085155 * A219786 A302038 A063762
KEYWORD
nonn
AUTHOR
R. J. Mathar, Mar 27 2024
STATUS
approved