OFFSET
1,2
MATHEMATICA
Position[Partition[PrimeOmega[Range[100]], 2, 1], _?(#[[1]]!=#[[2]]&), {1}, Heads->False]//Flatten (* Harvey P. Dale, Sep 19 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 13 2002
STATUS
approved