OFFSET
1,1
COMMENTS
1516128-3=3*5^3*13*311; 1516128-2=2*47*127^2; 1516128-1=1516127; 1516128+1=1516129; 1516128+2=2*5*7*11^2*179; 1516128+3=3^3*233*241,..
MATHEMATICA
f[n_]:=Max[Last/@FactorInteger[n]]; lst={}; Do[If[f[n-1]==1&&f[n-2]==2&&f[n-3]==3&&f[n+1]==1&&f[n+2]==2&&f[n+3]==3, Print[n]; AppendTo[lst, n]], {n, 4*9!, 4*10!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 30 2010
STATUS
approved