A178133 Number of odd semiprimes between consecutive squares.
0, 0, 1, 1, 2, 1, 3, 3, 5, 3, 5, 4, 4, 9, 5, 4, 10, 6, 7, 8, 8, 11, 10, 8, 8, 14, 11, 12, 11, 13, 10, 13, 14, 15, 14, 16, 17, 12, 14, 14, 18, 19, 17, 19, 15, 21, 16, 17, 23, 22, 17, 16, 21, 24, 28, 24, 21, 23, 20, 24, 22, 24, 21, 27, 28, 28, 26, 28, 32, 19, 31, 29, 27, 29, 28, 22, 37
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
fQ[n_] := OddQ[n] && Last /@ FactorInteger[n] == {1, 1}; f[n_] := Length[Select[ Range[n^2, (n + 1)^2], fQ]]; Array[f, 77] (* Robert G. Wilson v, Jun 07 2011 *)
Comments