OFFSET
1,1
COMMENTS
Subsequence of A045941. - Zak Seidov, Jan 29 2017
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..11023
EXAMPLE
a(1) = 602: 602 = 2 * 7 * 43; 603 = 3 * 3 * 67; 604 = 2 * 2 * 151; 605 = 5 * 11 * 11; 606 = 2 * 3 * 101 are all products of three primes.
a(4) = 4202 : 4202 = 2 * 11 * 191; 4203 = 3 * 3 * 467; 4204 = 2 * 2 * 1051; 4205 = 5 * 29 * 29; 4206 = 2 * 3 * 701 are all products of three primes.
MAPLE
MATHEMATICA
Select[Range[100000], PrimeOmega[#] == 3 && PrimeOmega[# + 1] == 3 && PrimeOmega[# + 2] == 3 && PrimeOmega[# + 3] == 3 && PrimeOmega[# + 4] == 3 &]
SequencePosition[PrimeOmega[Range[73000]], {3, 3, 3, 3, 3}][[All, 1]] (* Harvey P. Dale, Sep 03 2021 *)
PROG
(PARI) for(n = 1, 50000, bigomega(n)==3 & bigomega(n+1)==3 & bigomega(n+2)==3 & bigomega(n+3)==3 & bigomega(n+4)==3 & print1(n, ", "))
(Magma) IsP3:=func< n | &+[k[2]: k in Factorization(n)] eq 3 >; [ n: n in [2..50000] | IsP3(n) and IsP3(n+1) and IsP3(n+2) and IsP3(n+3) and IsP3(n+4)];
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Feb 07 2016
EXTENSIONS
Comment removed by Zak Seidov, Jan 29 2017
STATUS
approved