|
%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
|
