%t A076493 Table[Length[Intersection[IntegerDigits[n],
InterDigits[n^2]]],{n,1,100}]'d be
%t A076493 Table[Length[Intersection[IntegerDigits[n],
IntegerDigits[n^2]]],{n,1,100}]
zak
__________________________________
Discover Yahoo!
Use Yahoo! to plan a weekend, have fun online and more. Check it out!
http://discover.yahoo.com/