OFFSET
0
LINKS
MATHEMATICA
A364693[n_]:=With[{d=Divisors[2n]}, Catch[For[i=3, i<Length[d]-1, i++, If[Divisible[2n/d[[i]]-2, d[[i]]-1], Throw[1]]]; 0]]; (* after Jianing Song in A090466 *)
Array[A364693, 100, 0]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Xausa, Aug 03 2023
STATUS
approved