OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[2, 200, 2], PrimeNu@ # == 2 &] (* Michael De Vlieger, Oct 31 2018 *)
PROG
(PARI) isok(n) = !(n%2) && (omega(n) == 2); \\ Michel Marcus, Feb 02 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 22 2004
STATUS
approved