A346601 Record values in A346599.
1, 3, 4, 5, 15, 45, 91, 187, 703, 1891, 2701, 3337, 12403, 18721, 38503, 49141, 79003, 88831, 104653, 146611, 188191, 218791, 226801, 269011, 286903, 385003, 497503, 597871, 665281, 721801, 736291, 765703, 873181, 954271, 1056331, 1314631, 1373653, 1537381, 1755001
Offset: 1
Keywords
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..195
Programs
-
Mathematica
max=0;lst={};Do[g=(k=1;n=1;While[m=1;While[!Divisible[m(m+1),n],m++];m!=i,n++];n);If[g>max,AppendTo[lst,n];max=g],{i,100}];lst (* Giorgos Kalogeropoulos, Jul 29 2021 *)
Extensions
More terms from Chai Wah Wu, Jul 29 2021
Comments