# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a371555
Showing 1-1 of 1

%I A371555 #12 Mar 27 2024 13:05:15
%S A371555 1,4,6,9,10,14,15,17,22,23,24,26,29,35,36,37,39,40,42,45,49,56,57,58,
%T A371555 59,61,62,64,67,68,70,73,77,82,90,91,92,93,95,96,97,99,100,102,105,
%U A371555 106,108,111,115,116,118,121,125,130,136,145,146,147,148,149,151,152,153,155
%N A371555 Smallest position m such that A005350(m)=n.
%C A371555 Greedy inverse of A005350.
%H A371555 Michael De Vlieger, <a href="/A371555/b371555.txt">Table of n, a(n) for n = 1..10000</a>
%H A371555 Michael De Vlieger, <a href="/A371555/a371555.png">Log log scatterplot of a(n)</a>, n = 1..2^20.
%p A371555 A371555 := proc(n)
%p A371555     local a;
%p A371555     for a from 1 do
%p A371555         if A005350(a) = n then
%p A371555             return a;
%p A371555         end if;
%p A371555     end do:
%p A371555 end proc:
%p A371555 seq(A371555(n),n=1..100);
%t A371555 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 *)
%Y A371555 Cf. A005350, A188163.
%K A371555 nonn
%O A371555 1,2
%A A371555 _R. J. Mathar_, Mar 27 2024

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE