OFFSET
1,9
COMMENTS
For a guide to related sequences, see A204892.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..20000
MATHEMATICA
(See the program at A205402.)
s[m_]:=s[m]=Floor[(m+1)^2/2]/2
A205406[n_]:=(k=2; found=False; While[!found, Do[If[Mod[d=s[k]-s[j], n]==0, found=True; Break[]], {j, k-1}]; k++]; d)
nterms=100; Table[A205406[n]/n, {n, nterms}] (* Paolo Xausa, Dec 03 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 27 2012
EXTENSIONS
Data section extended up to a(111) by Antti Karttunen, Dec 03 2021
STATUS
approved