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,1

Links

Table of n, a(n) for n=0..51.

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

Cf. A046363, A046365.

Sequence in context: A336555 A175761 A360769 * A321498 A051773 A307222

Adjacent sequences: A046361 A046362 A046363 * A046365 A046366 A046367

Keyword

nonn

Author

Patrick De Geest, Jun 15 1998

Status

approved