per studiare la funzione ho fatto questa procedura Basic in LibreOffice Calc.
Non ho decifrato la relazione con i numeri di Fibonacci.
Serve un esperto di successioni ricorsive. Mi defilo.
strumenti > macro > organizza macro > libreoffice basic > macro personali > standard > module1 > modifica
Sub sullasoglia
rem olimpiadi math 24. Sulla soglia della porta segreta montagna solitaria
rem
http://online.disfida.it/2009_11/garaonline.pdfrem calcolo i primi 4198 valori della successione ricorsiva F(n)
dim n as integer
dim m as integer
m=4198
dim f(m) as integer
f(1)=1
for n=2 to m
f(n)=n - f(f(n-1))
next n
rem metto i valori in colonna A del foglio; NB:cell(0,0)=A1
Sheet1 = ThisComponent.getSheets.getByIndex(0)
for n=1 to m
Sheet1.getCellByPosition(0,n-1).setValue(f(n))
next n
rem calcolo i primi 20 numeri di Fibonacci e metto i loro multipli nel foglio
dim nfib as integer
dim i as integer
dim j as integer
nfib=20
dim fibo(nfib) as integer
dim fibm(nfib,50) as long
dim fibp as long
dim fibc as long
fibo(1)=1
fibo(2)=1
for i=3 to nfib
fibo(i)=fibo(i-1)+fibo(i-2)
if i>3 then
Sheet1.getCellByPosition(i-3,0).setValue(fibo(i-1))
end if
for j=1 to 50
fibm(i,j)=j*fibo(i)
fibc=fibm(i,j)
fibp=fibm(i-1,j)
if i>3 and fibc < m then
if f(fibc)=fibp then
Sheet1.getCellByPosition(i-3,fibc-1).setValue(fibp)
end if
end if
next j
next i
End sub