|
%I #17 Jul 15 2018 13:00:41
%S 1,10,13,16,22,24,64,140,198,473,1163,3936,5573,9356,13496,13927,
%T 17048,134497,194752,283870,630705,1468682,5365535,7863153,10531772,
%U 11682803,92922963,99080899,145711608,214374183,3388736774
%N Indices of records in A305382.
%C Where records occur in A305382.
%t With[{s = Array[Length@ NestWhile[Union@ Join[#, First /@ Flatten[FactorInteger[2 # + 1], 1]] &, {Prime@ #}, UnsameQ, All] &, 10^5]}, Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s] ] ] (* _Michael De Vlieger_, Jul 06 2018, after _Robert G. Wilson v_ at A305382 *)
%Y Cf. A305382, A316226.
%K nonn
%O 1,2
%A _Hans Havermann_, Jun 17 2018
|
