OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
48=2*2*2*2*3 (5-almost prime) and 2+2+2+2+3=11 is a prime.
MATHEMATICA
Select[Range[2500], PrimeOmega[#]==5&&PrimeQ[Total[Times@@@FactorInteger[#]]]&] (* Harvey P. Dale, Apr 07 2022 *)
PROG
(PARI) is(n)=my(f=factor(n)); sum(i=1, #f~, f[i, 2])==5 && isprime(sum(i=1, #f~, f[i, 1]*f[i, 2])) \\ Charles R Greathouse IV, Oct 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 12 2005
STATUS
approved