A346600 - OEIS

%I #14 Jul 29 2021 14:42:49

%S 1,2,3,4,5,9,13,33,37,61,73,141,157,193,277,313,397,421,457,541,613,

%T 661,673,733,757,877,997,1093,1153,1201,1213,1237,1321,1381,1453,1621,

%U 1657,1753,1873,1933,1993,2017,2137,2341,2473,2557,2593,2797,2857,2917,3061

%N Indices of records in A346599.

%H Chai Wah Wu, <a href="/A346600/b346600.txt">Table of n, a(n) for n = 1..195</a>

%t max=0;Monitor[Do[g=(k=1;n=1;While[m=1;While[!Divisible[m(m+1),n],m++];m!=s,n++];n);If[g>max,Print@s;max=g],{s,3000}],s] (* _Giorgos Kalogeropoulos_, Jul 29 2021 *)

%Y Cf. A344005, A346598, A346599, A346601.

%K nonn

%O 1,2

%A _Robert Dougherty-Bliss_ and _N. J. A. Sloane_, Jul 28 2021

%E More terms from _Chai Wah Wu_, Jul 29 2021