OFFSET
1,1
COMMENTS
a(4) = 62937 because 62937*4 = 251748, 62937*2 = 125874 and 251748 is an anagram of 125874.
MATHEMATICA
f[n_] := Block[ {k = 1}, While[ Sort@ IntegerDigits[2 k] != Sort@ IntegerDigits[k*n], k++ ]; k]; Array[f, 19] (* Robert G. Wilson v, Aug 15 2010 *)
CROSSREFS
KEYWORD
base,nonn,fini,full
AUTHOR
Claudio Meller, Aug 09 2010
EXTENSIONS
More terms from Robert G. Wilson v, Aug 15 2010
Edited by Michel Marcus, Feb 28 2019
STATUS
approved