OFFSET
0,1
MAPLE
isA046364 := proc(n)
if isprime(n) then
false;
else
isprime(A001414(n))
end if;
end proc:
for n from 3 to 1001 by 2 do
if isA046364(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Aug 14 2024
MATHEMATICA
Select[Range[1, 957, 2], !PrimeQ[#] && PrimeQ[Total[Times@@@FactorInteger[#]]]&] (* Jayanta Basu, May 29 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved