A085706 - OEIS

%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