OFFSET
1,1
COMMENTS
Supersequence of A121495.
MATHEMATICA
Select[Partition[Select[Range[400], CompositeQ[#]&&SquareFreeQ[#]&], 2, 1], PrimePi[ #[[1]]]==PrimePi[#[[2]]]&][[All, 1]] (* Harvey P. Dale, Apr 12 2020 *)
PROG
(PARI)
freesqrcomp(n)=issquarefree(n)&&!isprime(n)
nextfqc(n)={local(k); k=n+1; while(!freesqrcomp(k), k+=1); return(k)}
{for(i=2, 1000, if(freesqrcomp(i) && (nextfqc(i)<nextprime(i)), print1(i, ", ")))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Antonio Roldán, Apr 08 2014
STATUS
approved