%I #8 Dec 15 2017 17:36:27
%S 5,870,1158,24882,35238,37770,39270,46002,47262,48930,51810,55482,
%T 59910,62430,65622,69870,76458,85542,88638,90942,91338,91362,91830,
%U 93018,93882,94362,95298,97638,98070,99510,101262,103602,112038,116022,118230
%N Squarefree numbers sandwiched between two brilliant numbers.
%e a(3)=1158 because it is squarefree and 1157 = 13*89 is brilliant as is
%e 1159 = 19*61.
%t sfnQ[{a_,b_,c_}]:=Module[{a1=FactorInteger[a][[All,1]],c1= FactorInteger[ c][[All,1]]},Length[a1]==Length[c1]==2&&PrimeOmega[a]== PrimeOmega[c] == 2&&IntegerLength[a1[[1]]]==IntegerLength[a1[[2]]]&&IntegerLength[ c1[[1]]] == IntegerLength[c1[[2]]]&&SquareFreeQ[b]]; Join[{5}, Select[ Partition[Range[120000],3,1],sfnQ][[All,2]]] (* _Harvey P. Dale_, Nov 26 2016 *)
%Y Cf. A078972.
%K nonn
%O 1,1
%A _Jason Earls_, Jul 18 2003