%I #17 Jun 21 2022 04:24:01
%S 18,21,24,42,63,66,69,81,102,105,117,120,138,147,151,153,180,181,183,
%T 195,216,222,225,231,252,262,273,286,297,300,312,319,327,333,336,339,
%U 357,393,411,420,423,426,462,469,480,483,486,501,526,528,535,553,558
%N Values of k such that 10k + 1 is the only prime between 10k and 10k + 9.
%H V. Raman, <a href="/A216295/b216295.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 + 1}, AppendTo[t, n]], {n, 0, 669}]; t (* _T. D. Noe_, Sep 03 2012 *)
%Y Cf. A032352, A007811, A078494.
%K nonn
%O 1,1
%A _V. Raman_, Sep 03 2012
|