OFFSET
1,1
FORMULA
A071519(n)/3.
MATHEMATICA
With[{c=Range[9]}, Select[Range[11000], Sort[IntegerDigits[9 #^2]]== c&]] (* Harvey P. Dale, Jun 26 2011 *)
CROSSREFS
KEYWORD
fini,full,nonn,base
AUTHOR
Zak Seidov, Jul 14 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Aug 02 2010
STATUS
approved