OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
aQ[n_] := DivisorSum[n, 1 &, EvenQ[#] || # >= Sqrt[2n] &] == 1; Select[Range[250], aQ] (* Amiram Eldar, Jul 11 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Naohiro Nomoto, May 18 2003
STATUS
approved