OFFSET
1,1
EXAMPLE
a(5)=191 because 191^2 = 36481 and (191+5)^2 = 38416 and 36481 and 38416 are anagrams.
MATHEMATICA
Table[k = 1; While[Sort[IntegerDigits[k^2]] != Sort[IntegerDigits[(k + n)^2]], k++]; k, {n, 100}] (* T. D. Noe, Feb 06 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Feb 06 2012
STATUS
approved