login
Records in A363533.
2

%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