login
Indices of records in A363533.
2

%I #10 Jun 19 2023 17:38:31

%S 1,3,7,25,43,139,227,263,727,2463,3541

%N Indices of records in A363533.

%C a(12) = 9043 unless A363533(9043) = -1.

%t s = Array[(k = 1; While[! PrimeQ[# Fibonacci[k] + 1], k++]; k) &, 3000]; t = Union@ FoldList[Max, s]; Array[FirstPosition[s, t[[#]]][[1]] &, Length[t]] (* _Michael De Vlieger_, Jun 10 2023 *)

%Y Cf. A361998, A363533, A363534.

%K nonn,more

%O 1,2

%A _Pontus von Brömssen_, Jun 09 2023