OFFSET
1,2
MATHEMATICA
a[n_]:=Module[{k=1}, While[!Divisible[2n-1, k] || k<Sqrt[2n-1] , k++]; k]; Array[a, 67] (* Stefano Spezia, Nov 17 2024 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Charles Kusniec, Nov 10 2024
STATUS
approved