OFFSET
1,1
MATHEMATICA
Select[Accumulate[Range[150]], Count[DigitCount[#], 0]==7&] (* Harvey P. Dale, Dec 02 2010 *)
PROG
(PARI) isA162304(n)=issquare(n<<3+1)&#vecsort(Vec(Str(n)), , 8)==3
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 30 2009
STATUS
approved