%I #17 Jun 21 2022 04:25:01
%S 14,41,47,71,80,83,92,100,104,124,125,131,139,140,170,188,194,203,209,
%T 212,217,230,245,257,260,272,278,281,287,293,299,307,310,311,329,335,
%U 338,344,365,371,377,398,404,422,434,440,488,491,503,509,518,520,551
%N Values of k such that 10k + 9 is the only prime between 10k and 10k + 9.
%H V. Raman, <a href="/A216298/b216298.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) ~ 0.4 n log n. - _Charles R Greathouse IV_, Sep 07 2012
%t t = {}; Do[ps = Select[Range[10*n, 10*n + 9], PrimeQ]; If[ps == {10*n + 9}, AppendTo[t, n]], {n, 0, 677}]; t (* _T. D. Noe_, Sep 03 2012 *)
%Y Cf. A032352, A007811, A078494.
%K nonn
%O 1,1
%A _V. Raman_, Sep 03 2012