A046364 Odd composite numbers whose sum of prime factors is prime (counted with multiplicity).

45, 63, 75, 99, 117, 147, 153, 165, 175, 207, 245, 273, 279, 325, 333, 345, 369, 385, 399, 405, 423, 435, 475, 477, 507, 549, 561, 567, 595, 603, 651, 657, 665, 675, 715, 747, 759, 775, 777, 795, 833, 845, 847, 867, 873, 885, 891, 903, 909, 925, 927, 957

Offset: 0

Author

Patrick De Geest, Jun 15 1998

Keywords

• nonn

Crossrefs

Cf. A046363, A046365.

Programs

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 *)