|
%I #12 Jan 03 2021 00:41:45
%S 1782,62937,54,1,2826,891,3,269631,324,2718,4311,3681,37,387,25974,
%T 4401,477,45,48,256437,3393,37,26523,3465,3252,3699,34623,2922,27972,
%U 27,271,284787,27324,25971,263223,26973,25974,2579247,2514744
%N a(n) is the smallest positive number such that a(n)*n is an anagram of a(n)*4.
%C a(6) = 891 because 891*6 = 5346, 891*4 = 3564 and 5346 is an anagram of 3564.
%t f[n_] := Block[ {k = 1}, While[ Sort@ IntegerDigits[4 k] != Sort@ IntegerDigits[k*n], k++ ]; k]; Array[f, 40] (* _Robert G. Wilson v_, Aug 15 2010 *)
%K base,nonn,fini,full
%O 1,1
%A _Claudio Meller_, Aug 09 2010
%E More terms from _Robert G. Wilson v_, Aug 15 2010
|
