%I
%S 3,5,11,17,29,41,49,59,71,101,107,111,115,121,137,149,169,179,191,197,
%T 201,202,203,205,206,227,239,269,281,287,289,291,295,311,314,319,321,
%U 347,361,403,419,431,461,469,471,505,521,526,527,569,599,617,622,623
%N Numbers n such that there is exactly 1 prime p satisfying the inequality n < p < n + tau(n)^2 where tau(n) = A000005(n).
%o (PARI) isok(n) = #select(x>isprime(x), vector(numdiv(n)^21, k, k+n)) == 1; \\ _Michel Marcus_, Jun 18 2017
%Y Cf. A000005, A049591, A069230, A069231, A069232.
%K easy,nonn,changed
%O 1,1
%A _Benoit Cloitre_, Apr 13 2002
