login
A363534
Records in A363533.
2
1, 3, 9, 18, 48, 60, 540, 1998, 2844, 3045, 39753
OFFSET
1,2
MATHEMATICA
Union@ FoldList[Max, Array[(k = 1; While[! PrimeQ[# Fibonacci[k] + 1], k++]; k) &, 3000]] (* Michael De Vlieger, Jun 10 2023 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
STATUS
approved