OFFSET
1,2
FORMULA
a(n) = A217019(n) - 1. - Flávio V. Fernandes, Nov 19 2020
MAPLE
A165144 := proc(n) a := 0 ; for k from ithprime(n)^2+1 to ithprime(n+1)^2-1 do if numtheory[bigomega](k) = 2 then a := a+1 ; fi ; end do ; a ; end proc: seq(A165144(n), n=1..80) ; # R. J. Mathar, Jan 30 2010
MATHEMATICA
Table[Count[Range[Prime[p]^2+1, Prime[p+1]^2-1], _?(PrimeOmega[#]==2&)], {p, 60}] (* Harvey P. Dale, Oct 05 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Sep 05 2009
EXTENSIONS
a(7) corrected and terms beyond a(7) added by R. J. Mathar, Jan 30 2010
STATUS
approved