OFFSET
1,1
COMMENTS
MAPLE
isA225375 := proc(n) RETURN( (n mod 2 = 1) and (A001221(n) = 2) ); end proc:
for n from 1 to 840 do if isA225375(n) then printf("%d, ", n) ; end if; end do:
MATHEMATICA
Select[2 Range[200] + 1, PrimeNu[#] == 2&] (* Jean-François Alcover, Apr 04 2020 *)
PROG
(PARI) is_A046388(n)={ bittest(n, 0) & omega(n)==2 } \\ M. F. Hasler, Feb 13 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Oct 13 2008
EXTENSIONS
Entry created by N. J. A. Sloane, May 09 2013 in order to restore the original definition of A046388.
STATUS
approved