OFFSET
1,2
COMMENTS
Complement of A071228.
MATHEMATICA
Module[{nn=150, cmps}, cmps=Select[Range[nn], CompositeQ]; Complement[ Range[ Length[cmps]], Times@@@Thread[{cmps, Range[Length[cmps]]}]]] (* Harvey P. Dale, Jan 21 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Dec 11 2009
EXTENSIONS
More terms from Hugo Pfoertner, Jan 17 2022
STATUS
approved