login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A108609 6-almost primes whose sum of factors is a prime. 3
96, 224, 360, 416, 486, 504, 600, 608, 792, 810, 992, 1176, 1184, 1224, 1368, 1376, 1400, 1890, 1952, 2040, 2088, 2184, 2232, 2250, 2336, 2528, 2600, 2754, 2760, 2904, 2952, 3080, 3104, 3296, 3384, 3480, 3510, 3640, 3726, 4064, 4158, 4248, 4312, 4392 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

EXAMPLE

96=2*2*2*2*2*3 (6-almost prime) and 2+2+2+2+2+3=13 is a prime.

MATHEMATICA

Select[Range[8000], Last[Plus@@FactorInteger[ # ]]==6&&PrimeQ[Plus@@Times@@ Transpose[FactorInteger[ # ]]]&]

sfp6Q[n_]:=Module[{pf=Flatten[Table[#[[1]], #[[2]]]&/@FactorInteger[n]]}, Length[ pf]==6&&PrimeQ[Total[pf]]]; Select[Range[4400], sfp6Q] (* Harvey P. Dale, Jul 01 2018 *)

PROG

(PARI) is(n)=my(f=factor(n)); sum(i=1, #f~, f[i, 2])==6 && isprime(sum(i=1, #f~, f[i, 1]*f[i, 2])) \\ Charles R Greathouse IV, Oct 11 2013

CROSSREFS

Cf. A107707, A108607, A108608 (resp.) 3, 4, 5 (resp.)-almost primes whose sum of factors is a prime.

Sequence in context: A241930 A270435 A110231 * A125511 A124106 A304510

Adjacent sequences:  A108606 A108607 A108608 * A108610 A108611 A108612

KEYWORD

nonn

AUTHOR

Zak Seidov, Jun 12 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 21 08:47 EDT 2019. Contains 328292 sequences. (Running on oeis4.)