OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
tQ[n_]:=!PrimeQ[n+1]&&SquareFreeQ[n+1]&&(PrimeQ[n-1]||!SquareFreeQ[n-1])&&(PrimeQ[n+2]||!SquareFreeQ[n+2])
Select[Select[Complement[Range[500], Prime[Range[PrimePi[500]]]], SquareFreeQ], tQ] (* Harvey P. Dale, Feb 14 2011 *)
SequencePosition[Table[If[SquareFreeQ[n]&&!PrimeQ[n], 1, 0], {n, 500}], {0, 1, 1, 0}][[;; , 1]]+1 (* Harvey P. Dale, Feb 27 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 22 2002
STATUS
approved