OFFSET
1,1
MATHEMATICA
Table[x = 10^n; k = -1; While[! SquareFreeQ[y = x + k], k += -1]; y, {n, 18}] (* Jayanta Basu, Aug 01 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Aug 26 2002
EXTENSIONS
More terms from Matthew Conroy, Aug 27 2002
STATUS
approved