A023089 Numbers k such that k and 5*k are anagrams.
0, 142857, 148257, 174285, 174825, 1025748, 1028574, 1057428, 1057482, 1082574, 1085742, 1402857, 1408257, 1420857, 1425708, 1425789, 1425897, 1428057, 1428570, 1428579, 1428597, 1429785, 1429857, 1457028, 1457082, 1457829, 1458297, 1480257
Offset: 1
References
- Fred Schuh, The Master Book of Mathematical Recreations, Dover, New York, 1968, pp. 35-37.
Links
- David W. Wilson, Table of n, a(n) for n = 1..10001
Programs
-
Mathematica
si[n_] := Sort@ IntegerDigits@ n; Flatten@{0, Table[Select[Range[10^d + 8, 2 10^d - 1, 9], si[#] == si[5 #] &], {d, 0, 6}]} (* Giovanni Resta, Mar 20 2017 *)
Comments