A321617 Last term of the first occurrence of n consecutive odd squarefree composite numbers.
15, 35, 95, 219, 221, 903, 905, 1357
Offset: 1
Programs
-
Mathematica
Join[{15},With[{osc=Select[Range[1,1401,2],CompositeQ[#]&&SquareFreeQ[ #]&]}, Flatten[Table[Select[Partition[osc,n,1],Union[Differences[#]] == {2}&,1],{n,8}],1]][[All,-1]]] (* Harvey P. Dale, Feb 10 2019 *)
Comments