OFFSET
1,1
COMMENTS
Numbers k such that A282849(k) = 0.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
remove(n -> ormap(t -> isprime(t+n/t), numtheory:-divisors(n)), [$1..100]); # Robert Israel, Nov 14 2017
MATHEMATICA
Select[Range@ 100, Function[k, NoneTrue[Divisors@ k, PrimeQ[# + k/#] &]]] (* Michael De Vlieger, Nov 13 2017 *)
PROG
(PARI) isok(n) = sumdiv(n, d, isprime(d+n/d)) == 0;
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Nov 13 2017
STATUS
approved