login
Indices of records in A305382.
2

%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