%I #7 Jun 19 2023 17:38:39
%S 1,3,9,18,48,60,540,1998,2844,3045,39753
%N Records in A363533.
%t Union@ FoldList[Max, Array[(k = 1; While[! PrimeQ[# Fibonacci[k] + 1], k++]; k) &, 3000]] (* _Michael De Vlieger_, Jun 10 2023 *)
%Y Cf. A361997, A363533, A363535.
%K nonn,more
%O 1,2
%A _Pontus von Brömssen_, Jun 09 2023