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