|
|
A177004
|
|
Numbers n such that 2 nearest neighbors had largest prime factor equals to 1, next 2 neighbors had largest prime factor of 2 and next 2 neighbors had largest prime factor of 3.
|
|
0
|
|
|
|
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,..
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|