Counting Happy Numbers in Mathematica

Snippit of Wolfram to count Happy Numbers