OFFSET
1,1
COMMENTS
Includes 15*p where p, 5*p-14, 5*p-2 and 5*p+16 are consecutive primes. Dickson's conjecture implies there are infinitely many such terms. - Robert Israel, Nov 24 2022
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
P:= select(isprime, [seq(i, i=3..10^4, 2)]):
P3:= P[1..-3] + P[2..-2] + P[3..-1]:
filter:= proc(t) local F; F:= ifactors(t)[2]; nops(F) = 3 and F[1, 2]=1 and F[2, 2] = 1 and F[3, 2]=1 end proc:
select(filter, P3); # Robert Israel, Nov 24 2022
MATHEMATICA
Intersection[ Select[Range[105, 40000, 2], 3 == PrimeOmega[#] == PrimeNu[#] &], Total /@ Partition[Prime[Range[40000]], 3, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jul 04 2020
STATUS
approved