OFFSET
0,5
COMMENTS
EXAMPLE
a(35)=4 because 34^2=1156 and there are 4 digits (counted with multiplicity) which are in 34^2 but not in 34.
MATHEMATICA
UnsortedComplement[x_List, y__List]:=Replace[x, Dispatch[(#\[RuleDelayed]Sequence[])&/@Union[y]], 1]; Table[Length[UnsortedComplement[IntegerDigits[n], IntegerDigits[n^2]]], {n, 0, 200}]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Zak Seidov, Jun 20 2005
STATUS
approved