|
%I #17 Jun 21 2022 04:24:24
%S 11,29,68,74,77,86,95,98,116,119,137,152,158,173,182,191,200,205,215,
%T 221,224,227,242,250,263,266,275,284,302,341,343,359,362,364,380,383,
%U 386,436,437,446,449,452,458,460,466,470,473,494,497,515,532,533,548
%N Values of k such that 10k + 3 is the only prime between 10k and 10k + 9.
%H V. Raman, <a href="/A216296/b216296.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 + 3}, AppendTo[t, n]], {n, 0, 647}]; t (* _T. D. Noe_, Sep 03 2012 *)
%Y Cf. A032352, A007811, A078494.
%K nonn
%O 1,1
%A _V. Raman_, Sep 03 2012
|
