OFFSET
1,1
COMMENTS
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
EXAMPLE
203433 is a term: 203433 = 3*19*43*83, 203434 = 2*7*11*1321, 203435 = 5*23*29*61.
MATHEMATICA
f1[n_]:=Last/@FactorInteger[n]=={1, 1, 1, 1}; f2[n_]:=Max[Last/@FactorInteger[n]]; lst={}; Do[If[f1[n]&&f1[n+1]&&f1[n+2], AppendTo[lst, n]], {n, 5*8!, 7*9!}]; lst
PROG
(PARI) forstep(n=1+10^5, 10^7, 4, for(k=n, n+2, issquarefree(k)||next(2)); for(k=n, n+2, omega(k)==4||next(2)); print1((n)", ")) \\ M. F. Hasler, May 19 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 10 2010
STATUS
approved