OFFSET
1,3
FORMULA
MATHEMATICA
Table[((n*10^IntegerLength[x = n^2] + x) - (n^2*10^IntegerLength[n] + n))/18, {n, 40}] (* Jayanta Basu, Jul 12 2013 *)
CROSSREFS
KEYWORD
base,easy,sign
AUTHOR
Henry Bottomley, May 18 2000
STATUS
approved