OFFSET
1,1
COMMENTS
Here 1 is treated as not squarefree. - Harvey P. Dale, Jul 22 2012
MATHEMATICA
sf2Q[n_]:=Module[{c=FromDigits[Most[Rest[IntegerDigits[n]]]]}, c!=1&&SquareFreeQ[ n]&&SquareFreeQ[c]]; Select[Range[100, 300], sf2Q] (* Harvey P. Dale, Jul 22 2012 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 06 2002
EXTENSIONS
More terms from Harvey P. Dale, Jul 22 2012
Offset changed by Andrew Howroyd, Sep 19 2024
STATUS
approved