OFFSET
1,1
FORMULA
a(n) = A046315(n) - 2.
MAPLE
isA001358 := proc(n) numtheory[bigomega](n) = 2 ; end proc: for n from 1 to 400 by 2 do if isA001358(n+2) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Apr 20 2010
MATHEMATICA
Select[Range[9, 301, 2], PrimeOmega[#]==2&]-2 (* Harvey P. Dale, May 11 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 16 2010
EXTENSIONS
Entries checked by R. J. Mathar, Apr 20 2010
STATUS
approved