OFFSET
1,2
MATHEMATICA
snsf[n_]:=Module[{k=0, p=n*10^(n-IntegerLength[n])}, While[!SquareFreeQ[ p+k], k++]; p+k]; Array[snsf, 20] (* Harvey P. Dale, Apr 08 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 08 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 04 2003
STATUS
approved