OFFSET
1,1
COMMENTS
After a(5), all terms are 0.
EXAMPLE
All numbers 0 to 9 have squares containing only digits of frequency 1: 0, 1, 4, 9, 16, 25, 36, 49, 64, 81.
MATHEMATICA
cnt = 0; x = 0; t2 = Table[While[x < 10^n, If[Union[Last[Transpose[Tally[IntegerDigits[x^2]]]]] == {1}, cnt++]; x++]; cnt, {n, 5}]; Differences[Join[{0}, t2]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Jun 21 2013
STATUS
approved